Make C1P screen sharper, add support for C1P JSON files, and add more C1P README files

apps/c1p/BASIC/OSI/SAMPLE1.BAS

@@ -1,119 +0,0 @@
- 1 REM ***ROBERT L.
- 2 REM ***COPPEDGE
- 5 FOR SC=1TO32:PRINT:NEXT
- 10 PRINT"MATH TUTOR":PRINT:PRINT
- 15 PRINT"THIS TUTOR IS DESIGNED"
- 18 PRINT"TO BE AN AID IN BASIC"
- 20 PRINT"MATHEMATICS."
- 21 PRINT
- 25 PRINT"YOU HAVE THE FOLLOWINT":PRINT"SUBJECTS TO CHOOSE FROM"
- 28 PRINT
- 30 PRINT"1) AFDITION":PRINT:PRINT"2) SUBTRACTION":PRINT
- 35 PRINT"3)MULTIPLICATION":PRINT:PRINT"4) DIVISION"
- 38 PRINT
- 40 INPUT "WHICH WOULD YOU LIKE TO DO";X
- 44 PRINT
- 45 IF X>4 OR X<1 THEN 40
- 50 INPUT "ENTER RANDOM SEED(ANY NUMBER)";Z1
- 55 FOR SC=1TO32:PRINT:NEXT
- 60 ON X GOTO 100,200,300,400
- 100 PRINT"THIS IS ADDITION":FOR Z=1 TO 100
- 105 W=INT(1000*RND(Z1)+1):V=INT(1000*RND(Z1)+1)
- 110 Y=W+V
- 111 S=0
- 115 PRINT:PRINT"WHAT IS:"
- 120 PRINTW;"+";V:INPUT U
- 125 IF U=Y THEN 140
- 126 S=1
- 130 PRINT:PRINT"NO, I'M SORRY"
- 135 INPUT "AGAIN";A$:IF A$="YES" OR A$="Y" THEN 115
- 137 PRINT:PRINT"THE ANSWER IS";Y
- 138 GOTO 160
- 140 PRINT:PRINT"VERY GOOD!! PERFECT!!"
- 145 IF S=0 THEN R(X)=R(X)+1
- 160 PRINT:INPUT"DO YOU WANT ANOTHER ONE";A$
- 165 IF A$="YES" OR A$="Y" THEN 180
- 170 PRINT"YOU GOT ";R(X);" OUT OF ";Z
- 175 GOTO 500
- 180 PRINT:PRINT:PRINT:NEXT Z
- 185 GOTO 170
- 200 PRINT"THIS IS SUBTRACTION":FOR Z=1 TO 100
- 205 W=INT(1000*RND(Z1)+1):V=INT(1000*RND(Z1)+1)
- 210 Y=W-V
- 211 S=0
- 215 PRINT:PRINT"WHAT IS:":PRINT
- 220 PRINTW;"-";V:INPUT U
- 225 IF U=Y THEN 240
- 226 S=1
- 230 PRINT:PRINT"NO, I'M AFRAID THAT'S":PRINT"NOT IT.":PRINT
- 233 PRINT"DO YOU WANT TO"
- 235 INPUT"TRY AGAIN";A$:IFA$="Y" OR A$="YES" THEN 215
- 236 PRINT
- 237 PRINT"THE ANSWER IS ";Y
- 238 PRINT:GOTO260
- 240 PRINT:PRINT"BRAVO!! GOOD JOB!!"
- 245 IF S=0 THEN R(X)=R(X)+1
- 250 PRINT
- 260 INPUT "DO YOU WANT ANOTHER ONE";A$
- 265 IF A$="YES" OR A$="Y" THEN 280
- 270 PRINT"YOU GOT ";R(X);" OUT OF ";Z
- 275 GOTO 500
- 280 PRINT:PRINT:PRINT:NEXT Z
- 285 GOTO 270
- 300 PRINT"THIS IS MULTIPLICATION":FOR Z=1 TO 100
- 305 W=INT(20*RND(Z1)+1):V=INT(20*RND(Z1)+1)
- 310 Y=W*V
- 311 S=0
- 315 PRINT"WHAT IS:"
- 318 PRINT
- 320 PRINTW;"*";V:INPUT U
- 325 IF Y=U THEN 340
- 326 S=1
- 328 PRINT
- 330 PRINT:PRINT"SORRY, BUT THAT'S NOT":PRINT"CORRECT. ":PRINT
- 333 PRINT"DO YOU WANT TO TRY"
- 335 INPUT "AGAIN";A$:IF A$="Y" OR A$="YES" THEN 315
- 337 PRINT:PRINT"THE ANSWER IS";Y
- 338 GOTO 360
- 340 PRINT:PRINT"YOU GOT IT!!"
- 344 PRINT
- 345 IF S=0 THEN R(X)=R(X)+1
- 360 PRINT:INPUT"DO YOU WANT ANOTHER ONE";A$
- 365 IF A$="Y" OR A$="YES" THEN 380
- 366 PRINT
- 370 PRINT"YOU GOT ";R(X);" OUT OF ";Z
- 375 GOTO 500
- 380 PRINT:PRINT:PRINT:NEXT Z
- 385 GOTO 370
- 400 PRINT"THIS IS DIVISION":FOR Z=1 TO 100
- 405 W=INT(150*RND(Z1)+1):V=INT(75*RND(Z1)+1)
- 410 Y=W/V:IF Y=INT(Y) THEN 414
- 411 GOTO 405
- 414 S=0 
- 415 PRINT:PRINT"WHAT IS:"
- 420 PRINTW;"/";V:INPUT U
- 425 IF Y=U THEN 440
- 426 S=1
- 428 PRINT
- 430 PRINT"NOT QUITE RIGHT. DO YOU":PRINT"WANT ANOTHER CRACK "
- 435 INPUT "AT IT";A$:IF A$="Y" OR A$="YES" THEN 415
- 436 PRINT
- 437 PRINT"THE ANSWER IS: ";Y
- 438 PRINT:GOTO460
- 439 PRINT
- 440 PRINT:PRINT"PERFECT!!"
- 444 PRINT
- 445 IF S=0 THEN R(X)=R(X)+1
- 450 PRINT
- 460 INPUT "DO YOU WANT ANOTHER ONE";A$
- 462 PRINT
- 465 IF A$="Y" OR A$="YES" THEN 480
- 470 PRINT"YOU GOT ";R(X);" OUT OF ";Z
- 475 GOTO 500
- 480 PRINT:PRINT:PRINT:NEXT Z
- 482 PRINT
- 485 GOTO 470
- 500 PRINT:PRINT"WOULD YOU LIKE ANOTHER"
- 505 INPUT"CATEGORY";A$
- 510 IF A$="Y" OR A$="YES" THEN 30
- 600 END