8bitfiles.net/archives

home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / MATH-TEST / c64.bas
Unknown | 2019-04-13 | 3.3 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default
`100%`	gt2	Kopftext: '1 REM'	default (weak)
`100%`	detectItEasy	Format: plain text[LF]	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 52 45 4d 3a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |1 REM:**|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 32 20 52 |********|****.2 R|
|00000020| 45 4d 3a 2a 20 20 20 20 | 4d 41 54 48 20 54 45 53 |EM:*    |MATH TES|
|00000030| 54 20 20 20 20 20 20 20 | 2a 0a 33 20 52 45 4d 3a |T       |*.3 REM:|
|00000040| 2a 20 42 59 20 4c 41 52 | 52 59 20 44 2e 20 4d 43 |* BY LAR|RY D. MC|
|00000050| 48 4f 4e 45 20 2a 0a 34 | 20 52 45 4d 3a 2a 20 20 |HONE *.4| REM:*  |
|00000060| 20 20 4c 44 4d 20 50 52 | 4f 47 52 41 4d 53 20 20 |  LDM PR|OGRAMS  |
|00000070| 20 20 2a 0a 35 20 52 45 | 4d 3a 2a 20 57 49 4e 53 |  *.5 RE|M:* WINS|
|00000080| 54 4f 4e 20 53 41 4c 45 | 4d 2c 20 4e 43 20 20 2a |TON SALE|M, NC  *|
|00000090| 0a 36 20 52 45 4d 3a 2a | 20 55 50 44 41 54 45 44 |.6 REM:*| UPDATED|
|000000a0| 20 30 33 2f 30 32 2f 38 | 36 20 20 20 2a 0a 37 20 | 03/02/8|6   *.7 |
|000000b0| 52 45 4d 3a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |REM:****|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 33 30 20 50 52 |********|**.30 PR|
|000000d0| 49 4e 54 22 93 22 0a 33 | 35 20 47 4f 53 55 42 20 |INT".".3|5 GOSUB |
|000000e0| 35 30 30 30 0a 33 36 20 | 47 4f 53 55 42 36 30 30 |5000.36 |GOSUB600|
|000000f0| 30 0a 34 30 20 50 52 49 | 4e 54 22 93 11 11 11 11 |0.40 PRI|NT".....|
|00000100| 11 11 11 11 11 11 1d 1d | 1d 1d 1d 1d 1d 1d 1d 57 |........|.......W|
|00000110| 48 41 54 27 53 20 59 4f | 55 52 20 4e 41 4d 45 22 |HAT'S YO|UR NAME"|
|00000120| 3b 3a 49 4e 50 55 54 4e | 24 0a 36 30 20 50 52 49 |;:INPUTN|$.60 PRI|
|00000130| 4e 54 22 93 22 0a 37 30 | 20 58 3d 28 49 4e 54 28 |NT".".70| X=(INT(|
|00000140| 52 4e 44 28 30 29 2a 31 | 30 30 2b 31 29 29 0a 38 |RND(0)*1|00+1)).8|
|00000150| 30 20 59 3d 28 49 4e 54 | 28 52 4e 44 28 30 29 2a |0 Y=(INT|(RND(0)*|
|00000160| 31 30 2b 31 29 29 0a 39 | 30 20 50 52 49 4e 54 22 |10+1)).9|0 PRINT"|
|00000170| 93 11 11 11 11 11 11 11 | 11 11 11 1d 1d 1d 1d 1d |........|........|
|00000180| 1d 1d 57 48 41 54 20 4b | 49 4e 44 20 4f 46 20 50 |..WHAT K|IND OF P|
|00000190| 52 4f 42 4c 45 4d 20 44 | 4f 20 59 4f 55 20 57 41 |ROBLEM D|O YOU WA|
|000001a0| 4e 54 20 20 20 20 20 a0 | 20 a0 22 3b 4e 24 3b 22 |NT     .| .";N$;"|
|000001b0| 3f 22 0a 31 30 30 20 50 | 52 49 4e 54 3a 50 52 49 |?".100 P|RINT:PRI|
|000001c0| 4e 54 22 9e 20 20 20 20 | 12 20 28 31 29 20 41 44 |NT".    |. (1) AD|
|000001d0| 44 49 54 49 4f 4e 22 3a | 50 52 49 4e 54 3a 50 52 |DITION":|PRINT:PR|
|000001e0| 49 4e 54 22 1e 20 20 20 | 20 12 20 28 32 29 20 53 |INT".   | . (2) S|
|000001f0| 55 42 54 52 41 43 54 49 | 4f 4e 22 0a 31 30 35 20 |UBTRACTI|ON".105 |
|00000200| 50 52 49 4e 54 3a 50 52 | 49 4e 54 22 9f 20 20 20 |PRINT:PR|INT".   |
|00000210| 20 12 20 28 33 29 20 4d | 55 4c 54 49 50 4c 49 43 | . (3) M|ULTIPLIC|
|00000220| 41 54 49 4f 4e 22 3a 50 | 52 49 4e 54 3a 50 52 49 |ATION":P|RINT:PRI|
|00000230| 4e 54 22 99 20 20 20 20 | 12 20 28 34 29 20 44 49 |NT".    |. (4) DI|
|00000240| 56 49 53 49 4f 4e 22 0a | 31 30 37 20 50 52 49 4e |VISION".|107 PRIN|
|00000250| 54 3a 50 52 49 4e 54 22 | 1c 20 20 20 20 12 20 28 |T:PRINT"|.    . (|
|00000260| 35 29 20 45 4e 44 20 54 | 45 53 54 22 0a 31 31 30 |5) END T|EST".110|
|00000270| 20 50 52 49 4e 54 3a 50 | 52 49 4e 54 22 90 20 20 | PRINT:P|RINT".  |
|00000280| 12 20 50 52 45 53 53 20 | 3c 31 3e 2c 20 3c 32 3e |. PRESS |<1>, <2>|
|00000290| 2c 20 3c 33 3e 2c 20 3c | 34 3e 2c 20 4f 52 20 3c |, <3>, <|4>, OR <|
|000002a0| 35 3e 92 22 0a 31 32 30 | 20 47 45 54 20 41 24 0a |5>.".120| GET A$.|
|000002b0| 31 32 35 20 49 46 20 41 | 24 3d 22 22 20 47 4f 54 |125 IF A|$="" GOT|
|000002c0| 4f 20 31 32 30 0a 31 33 | 30 20 49 46 20 41 24 3d |O 120.13|0 IF A$=|
|000002d0| 22 31 22 20 47 4f 54 4f | 20 32 30 30 0a 31 34 30 |"1" GOTO| 200.140|
|000002e0| 20 49 46 20 41 24 3d 22 | 32 22 20 47 4f 54 4f 20 | IF A$="|2" GOTO |
|000002f0| 33 39 30 0a 31 35 30 20 | 49 46 20 41 24 3d 22 33 |390.150 |IF A$="3|
|00000300| 22 20 47 4f 54 4f 20 34 | 34 30 0a 31 36 30 20 49 |" GOTO 4|40.160 I|
|00000310| 46 20 41 24 3d 22 34 22 | 20 47 4f 54 4f 20 34 39 |F A$="4"| GOTO 49|
|00000320| 30 0a 31 37 30 20 49 46 | 20 41 24 3d 22 35 22 20 |0.170 IF| A$="5" |
|00000330| 47 4f 54 4f 20 35 34 30 | 0a 31 38 30 20 49 46 20 |GOTO 540|.180 IF |
|00000340| 41 24 3d 22 36 22 20 47 | 4f 54 4f 20 31 32 30 0a |A$="6" G|OTO 120.|
|00000350| 32 30 30 20 50 52 49 4e | 54 22 93 22 3a 50 52 49 |200 PRIN|T".":PRI|
|00000360| 4e 54 22 11 11 11 11 11 | 11 11 11 1d 1d 1d 1d 1d |NT".....|........|
|00000370| 9e 57 48 41 54 20 49 53 | 22 58 22 2b 22 20 59 3b |.WHAT IS|"X"+" Y;|
|00000380| 3a 49 4e 50 55 54 20 41 | 0a 32 31 30 20 50 52 49 |:INPUT A|.210 PRI|
|00000390| 4e 54 0a 32 32 30 20 49 | 46 20 41 3d 58 2b 59 54 |NT.220 I|F A=X+YT|
|000003a0| 48 45 4e 20 32 37 30 0a | 32 32 35 20 47 4f 54 4f |HEN 270.|225 GOTO|
|000003b0| 20 32 33 30 0a 32 33 30 | 20 50 52 49 4e 54 22 11 | 230.230| PRINT".|
|000003c0| 11 11 11 11 11 11 11 11 | 11 1d 1d 1d 1d 1d 1c 54 |........|.......T|
|000003d0| 48 45 20 41 4e 53 57 45 | 52 20 49 53 20 22 58 2b |HE ANSWE|R IS "X+|
|000003e0| 59 0a 32 34 30 20 50 52 | 49 4e 54 22 11 11 11 11 |Y.240 PR|INT"....|
|000003f0| 11 11 11 11 11 11 11 11 | 1d 1d 1d 1d 1d 54 4f 4f |........|.....TOO|
|00000400| 20 42 41 44 2c 22 4e 24 | 3a 50 52 49 4e 54 3a 50 | BAD,"N$|:PRINT:P|
|00000410| 52 49 4e 54 22 20 20 20 | 20 20 42 45 54 54 45 52 |RINT"   |  BETTER|
|00000420| 20 4c 55 43 4b 20 4e 45 | 58 54 20 54 49 4d 45 22 | LUCK NE|XT TIME"|
|00000430| 0a 32 35 30 20 54 3d 54 | 2b 31 0a 32 36 30 20 47 |.250 T=T|+1.260 G|
|00000440| 4f 54 4f 20 36 30 30 0a | 32 37 30 20 50 52 49 4e |OTO 600.|270 PRIN|
|00000450| 54 22 93 22 0a 32 38 30 | 20 46 4f 52 20 4d 3d 31 |T".".280| FOR M=1|
|00000460| 20 54 4f 20 34 0a 33 31 | 30 20 4e 45 58 54 20 4d | TO 4.31|0 NEXT M|
|00000470| 0a 33 32 30 20 50 52 49 | 4e 54 22 93 22 0a 33 33 |.320 PRI|NT".".33|
|00000480| 30 20 50 52 49 4e 54 53 | 50 43 28 30 29 22 11 11 |0 PRINTS|PC(0)"..|
|00000490| 11 11 11 11 11 11 11 11 | 11 11 1d 1d 1d 1d 1d 1f |........|........|
|000004a0| 43 4f 52 52 45 43 54 2c | 22 4e 24 20 22 21 21 21 |CORRECT,|"N$ "!!!|
|000004b0| 22 0a 33 34 30 20 54 3d | 54 2b 31 0a 33 35 30 20 |".340 T=|T+1.350 |
|000004c0| 43 3d 43 2b 31 0a 33 36 | 30 20 50 52 49 4e 54 53 |C=C+1.36|0 PRINTS|
|000004d0| 50 43 28 31 30 29 22 11 | 11 11 11 11 54 48 41 54 |PC(10)".|....THAT|
|000004e0| 20 49 53 20 22 43 22 20 | 4f 55 54 20 4f 46 20 22 | IS "C" |OUT OF "|
|000004f0| 54 22 00 0a 33 38 30 20 | 50 52 49 4e 54 3a 50 52 |T"..380 |PRINT:PR|
|00000500| 49 4e 54 53 50 43 28 31 | 30 29 22 4f 52 22 3b 49 |INTSPC(1|0)"OR";I|
|00000510| 4e 54 28 43 2f 54 2a 31 | 30 30 29 22 25 20 43 4f |NT(C/T*1|00)"% CO|
|00000520| 52 52 45 43 54 22 3a 47 | 4f 54 4f 20 36 30 30 0a |RRECT":G|OTO 600.|
|00000530| 33 39 30 20 50 52 49 4e | 54 22 93 22 3a 50 52 49 |390 PRIN|T".":PRI|
|00000540| 4e 54 22 11 11 09 00 11 | 11 11 11 11 11 11 11 1d |NT".....|........|
|00000550| 1d 1d 1d 1d 1e 57 48 41 | 54 20 49 53 20 22 58 22 |.....WHA|T IS "X"|
|00000560| 2d 22 59 3b 3a 49 4e 50 | 55 54 20 41 0a 34 31 30 |-"Y;:INP|UT A.410|
|00000570| 20 49 46 20 41 3d 58 2d | 59 20 54 48 45 4e 20 32 | IF A=X-|Y THEN 2|
|00000580| 37 30 0a 34 31 31 20 47 | 4f 54 4f 34 32 30 0a 34 |70.411 G|OTO420.4|
|00000590| 32 30 20 50 52 49 4e 54 | 22 11 11 11 11 11 11 11 |20 PRINT|".......|
|000005a0| 11 11 11 11 11 11 1d 1d | 1d 1d 1d 1c 54 48 45 20 |........|....THE |
|000005b0| 41 4e 53 57 45 52 20 49 | 53 20 22 58 2d 59 0a 34 |ANSWER I|S "X-Y.4|
|000005c0| 33 30 20 47 4f 54 4f 20 | 32 34 30 0a 34 34 30 20 |30 GOTO |240.440 |
|000005d0| 50 52 49 4e 54 22 93 22 | 3a 50 52 49 4e 54 22 11 |PRINT"."|:PRINT".|
|000005e0| 11 11 11 11 11 11 11 11 | 11 11 11 11 1d 1d 1d 1d |........|........|
|000005f0| 1d 9f 57 48 41 54 20 49 | 53 22 20 58 20 22 58 22 |..WHAT I|S" X "X"|
|00000600| 20 59 3b 3a 49 4e 50 55 | 54 20 41 0a 34 36 30 20 | Y;:INPU|T A.460 |
|00000610| 49 46 20 41 3d 58 2a 59 | 20 20 20 47 4f 54 4f 20 |IF A=X*Y|   GOTO |
|00000620| 32 37 30 0a 34 37 30 20 | 50 52 49 4e 54 22 11 11 |270.470 |PRINT"..|
|00000630| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 1d 1d 1d |........|........|
|00000640| 1d 1d 1c 54 48 45 20 41 | 4e 53 57 45 52 20 49 53 |...THE A|NSWER IS|
|00000650| 20 22 20 58 2a 59 0a 34 | 38 30 20 47 4f 54 4f 20 | " X*Y.4|80 GOTO |
|00000660| 32 34 30 0a 34 39 30 20 | 50 52 49 4e 54 22 93 22 |240.490 |PRINT"."|
|00000670| 3a 50 52 49 4e 54 22 11 | 11 11 11 11 11 11 11 11 |:PRINT".|........|
|00000680| 11 11 11 1d 1d 1d 1d 1d | 99 57 48 41 54 20 49 53 |........|.WHAT IS|
|00000690| 20 22 58 22 2f 22 59 3b | 3a 49 4e 50 55 54 20 41 | "X"/"Y;|:INPUT A|
|000006a0| 0a 35 31 30 20 49 46 20 | 41 3d 49 4e 54 28 28 28 |.510 IF |A=INT(((|
|000006b0| 58 2f 59 29 2b 2e 30 30 | 35 29 2a 31 30 30 29 2f |X/Y)+.00|5)*100)/|
|000006c0| 31 30 30 54 48 45 4e 20 | 47 4f 54 4f 20 32 37 30 |100THEN |GOTO 270|
|000006d0| 0a 35 32 30 20 50 52 49 | 4e 54 22 11 11 11 11 11 |.520 PRI|NT".....|
|000006e0| 11 11 11 11 11 11 11 11 | 11 11 1d 1d 1d 1d 1c 1d |........|........|
|000006f0| 54 48 45 20 41 4e 53 57 | 45 52 20 49 53 20 22 49 |THE ANSW|ER IS "I|
|00000700| 4e 54 28 28 28 58 2f 59 | 29 2b 2e 30 30 35 29 2a |NT(((X/Y|)+.005)*|
|00000710| 31 30 30 29 2f 31 30 30 | 0a 35 33 30 20 47 4f 54 |100)/100|.530 GOT|
|00000720| 4f 20 32 34 30 0a 35 34 | 30 20 50 52 49 4e 54 22 |O 240.54|0 PRINT"|
|00000730| 41 47 41 49 4e 22 0a 35 | 35 30 20 50 52 49 4e 54 |AGAIN".5|50 PRINT|
|00000740| 22 93 22 3a 50 52 49 4e | 54 22 11 11 11 11 11 1d |".":PRIN|T"......|
|00000750| 1d 1d 1f 57 45 4c 4c 20 | 22 3b 4e 24 3b 22 20 48 |...WELL |";N$;" H|
|00000760| 45 52 45 27 53 20 59 4f | 55 52 20 53 43 4f 52 45 |ERE'S YO|UR SCORE|
|00000770| 22 0a 35 36 30 20 50 52 | 49 4e 54 0a 35 37 30 20 |".560 PR|INT.570 |
|00000780| 50 52 49 4e 54 3a 50 52 | 49 4e 54 22 1d 1d 1d 1d |PRINT:PR|INT"....|
|00000790| 1d 59 4f 55 20 47 4f 54 | 20 22 20 43 22 20 4f 55 |.YOU GOT| " C" OU|
|000007a0| 54 20 4f 46 09 00 54 22 | 20 43 4f 52 52 45 43 54 |T OF..T"| CORRECT|
|000007b0| 22 00 0a 35 38 30 20 50 | 52 49 4e 54 20 22 1d 1d |"..580 P|RINT "..|
|000007c0| 1d 1d 1d 4f 52 20 22 49 | 4e 54 28 43 2f 54 2a 31 |...OR "I|NT(C/T*1|
|000007d0| 30 30 29 22 25 22 3a 47 | 4f 54 4f 35 38 31 0a 35 |00)"%":G|OTO581.5|
|000007e0| 38 31 20 50 52 49 4e 54 | 3a 49 46 20 43 2f 54 2a |81 PRINT|:IF C/T*|
|000007f0| 31 30 30 3e 3d 38 35 20 | 54 48 45 4e 20 50 52 49 |100>=85 |THEN PRI|
|00000800| 4e 54 22 20 20 20 20 20 | 56 45 52 59 20 47 4f 4f |NT"     |VERY GOO|
|00000810| 44 20 22 3b 4e 24 0a 35 | 38 35 20 45 4e 44 0a 36 |D ";N$.5|85 END.6|
|00000820| 30 30 20 50 52 49 4e 54 | 3a 50 52 49 4e 54 22 1d |00 PRINT|:PRINT".|
|00000830| 1d 1d 1d 1d 1c 12 50 52 | 45 53 53 20 41 4e 59 20 |......PR|ESS ANY |
|00000840| 4b 45 59 20 57 48 45 4e | 20 52 45 41 44 59 22 0a |KEY WHEN| READY".|
|00000850| 36 31 30 20 50 52 49 4e | 54 22 1d 1d 1d 1d 1d 12 |610 PRIN|T"......|
|00000860| 46 4f 52 20 41 4e 4f 54 | 48 45 52 20 50 52 4f 42 |FOR ANOT|HER PROB|
|00000870| 4c 45 4d 92 22 0a 36 31 | 35 20 47 45 54 20 41 24 |LEM.".61|5 GET A$|
|00000880| 0a 36 32 30 20 49 46 20 | 41 24 3d 22 22 20 47 4f |.620 IF |A$="" GO|
|00000890| 54 4f 20 36 31 35 0a 36 | 32 35 20 47 4f 54 4f 20 |TO 615.6|25 GOTO |
|000008a0| 36 30 0a 35 30 30 30 20 | 50 4f 4b 45 20 35 33 32 |60.5000 |POKE 532|
|000008b0| 38 31 2c 31 0a 35 30 30 | 35 20 50 52 49 4e 54 20 |81,1.500|5 PRINT |
|000008c0| 22 93 11 11 11 11 11 11 | 11 11 11 11 1d 1d 1d 1d |".......|........|
|000008d0| 1d 1d 1d 1d 12 1f 20 20 | 20 20 20 20 20 20 20 20 |......  |        |
|000008e0| 20 20 20 20 20 20 20 20 | 05 00 0a 35 30 31 30 20 |        |...5010 |
|000008f0| 50 52 49 4e 54 20 53 50 | 43 28 38 29 22 12 1c 20 |PRINT SP|C(8)".. |
|00000900| 4d 20 41 20 54 20 48 20 | 20 54 20 45 20 53 20 54 |M A T H | T E S T|
|00000910| 20 22 0a 35 30 31 35 20 | 50 52 49 4e 54 20 53 50 | ".5015 |PRINT SP|
|00000920| 43 28 38 29 22 12 9f 20 | 20 20 20 20 20 20 20 20 |C(8)".. |        |
|00000930| 20 20 20 20 20 20 20 20 | 20 22 0a 35 30 33 30 20 |        | ".5030 |
|00000940| 47 4f 53 55 42 35 35 30 | 30 0a 35 31 30 35 20 50 |GOSUB550|0.5105 P|
|00000950| 52 49 4e 54 20 22 93 11 | 11 11 11 11 11 11 11 11 |RINT "..|........|
|00000960| 11 1d 1d 1d 1d 1d 1d 1d | 1d 12 9f 20 20 20 20 20 |........|...     |
|00000970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 05 00 0a |        |     ...|
|00000980| 35 31 31 30 20 50 52 49 | 4e 54 20 53 50 43 28 38 |5110 PRI|NT SPC(8|
|00000990| 29 22 12 1f 20 4d 20 41 | 20 54 20 48 20 20 54 20 |)".. M A| T H  T |
|000009a0| 45 20 53 20 54 20 22 0a | 35 31 31 35 20 50 52 49 |E S T ".|5115 PRI|
|000009b0| 4e 54 20 53 50 43 28 38 | 29 22 12 1c 20 20 20 20 |NT SPC(8|)"..    |
|000009c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 22 0a |        |      ".|
|000009d0| 35 31 33 30 20 47 4f 53 | 55 42 35 35 30 30 0a 35 |5130 GOS|UB5500.5|
|000009e0| 32 30 35 20 50 52 49 4e | 54 20 22 93 11 11 11 11 |205 PRIN|T ".....|
|000009f0| 11 11 11 11 11 11 1d 1d | 1d 1d 1d 1d 1d 1d 12 1c |........|........|
|00000a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a10| 09 00 05 00 0a 35 32 31 | 30 20 50 52 49 4e 54 20 |.....521|0 PRINT |
|00000a20| 53 50 43 28 38 29 22 12 | 1f 20 4d 20 41 20 54 20 |SPC(8)".|. M A T |
|00000a30| 48 20 20 54 20 45 20 53 | 20 54 20 22 0a 35 32 31 |H  T E S| T ".521|
|00000a40| 35 20 50 52 49 4e 54 20 | 53 50 43 28 38 29 22 12 |5 PRINT |SPC(8)".|
|00000a50| 9f 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000a60| 20 20 20 22 3a 47 4f 53 | 55 42 35 35 30 30 0a 35 |   ":GOS|UB5500.5|
|00000a70| 32 33 30 20 47 4f 53 55 | 42 35 35 30 30 0a 35 35 |230 GOSU|B5500.55|
|00000a80| 30 30 20 46 4f 52 20 44 | 4c 3d 31 54 4f 31 30 30 |00 FOR D|L=1TO100|
|00000a90| 30 3a 4e 45 58 54 20 44 | 4c 3a 52 45 54 55 52 4e |0:NEXT D|L:RETURN|
|00000aa0| 0a 36 30 30 30 20 50 52 | 49 4e 54 22 93 22 0a 36 |.6000 PR|INT".".6|
|00000ab0| 30 31 30 20 50 52 49 4e | 54 20 53 50 43 28 31 38 |010 PRIN|T SPC(18|
|00000ac0| 29 22 11 11 11 11 11 42 | 59 22 0a 36 30 31 35 20 |)".....B|Y".6015 |
|00000ad0| 50 52 49 4e 54 20 53 50 | 43 28 31 31 29 22 90 4c |PRINT SP|C(11)".L|
|00000ae0| 22 3a 47 4f 53 55 42 36 | 35 30 30 0a 36 30 31 36 |":GOSUB6|500.6016|
|00000af0| 20 50 52 49 4e 54 20 53 | 50 43 28 31 32 29 22 1c | PRINT S|PC(12)".|
|00000b00| 41 22 3a 47 4f 53 55 42 | 36 35 30 30 0a 36 30 31 |A":GOSUB|6500.601|
|00000b10| 37 20 50 52 49 4e 54 20 | 53 50 43 28 31 33 29 22 |7 PRINT |SPC(13)"|
|00000b20| 9f 52 22 3a 47 4f 53 55 | 42 36 35 30 30 0a 36 30 |.R":GOSU|B6500.60|
|00000b30| 31 38 20 50 52 49 4e 54 | 20 53 50 43 28 31 34 29 |18 PRINT| SPC(14)|
|00000b40| 22 9c 52 22 3a 47 4f 53 | 55 42 36 35 30 30 0a 36 |".R":GOS|UB6500.6|
|00000b50| 30 31 39 20 50 52 49 4e | 54 20 53 50 43 28 31 35 |019 PRIN|T SPC(15|
|00000b60| 29 22 1e 59 22 3a 47 4f | 53 55 42 36 35 30 30 0a |)".Y":GO|SUB6500.|
|00000b70| 36 30 32 30 20 50 52 49 | 4e 54 20 53 50 43 28 31 |6020 PRI|NT SPC(1|
|00000b80| 36 29 22 20 22 3a 47 4f | 53 55 42 36 35 30 30 0a |6)" ":GO|SUB6500.|
|00000b90| 36 30 33 30 20 50 52 49 | 4e 54 20 53 50 43 28 31 |6030 PRI|NT SPC(1|
|00000ba0| 37 29 22 1f 44 2e 22 3a | 47 4f 53 55 42 36 35 30 |7)".D.":|GOSUB650|
|00000bb0| 30 0a 36 30 34 30 20 50 | 52 49 4e 54 20 53 50 43 |0.6040 P|RINT SPC|
|00000bc0| 28 31 38 29 22 20 22 3a | 47 4f 53 55 42 36 35 30 |(18)" ":|GOSUB650|
|00000bd0| 30 0a 36 30 34 31 20 50 | 52 49 4e 54 20 53 50 43 |0.6041 P|RINT SPC|
|00000be0| 28 31 39 29 22 9e 4d 22 | 3a 47 4f 53 55 42 36 35 |(19)".M"|:GOSUB65|
|00000bf0| 30 30 0a 36 30 34 32 20 | 50 52 49 4e 54 20 53 50 |00.6042 |PRINT SP|
|00000c00| 43 28 32 30 29 22 90 43 | 22 3a 47 4f 53 55 42 36 |C(20)".C|":GOSUB6|
|00000c10| 35 30 30 0a 36 30 34 33 | 20 50 52 49 4e 54 20 53 |500.6043| PRINT S|
|00000c20| 50 43 28 32 31 29 22 1c | 48 22 3a 47 4f 53 55 42 |PC(21)".|H":GOSUB|
|00000c30| 36 35 30 30 0a 36 30 34 | 34 20 50 52 49 4e 54 20 |6500.604|4 PRINT |
|00000c40| 53 50 43 28 32 32 29 22 | 9f 4f 22 3a 47 4f 53 55 |SPC(22)"|.O":GOSU|
|00000c50| 42 36 35 30 30 0a 36 30 | 34 35 20 50 52 49 4e 54 |B6500.60|45 PRINT|
|00000c60| 20 53 50 43 28 32 33 29 | 22 9c 4e 22 3a 47 4f 53 | SPC(23)|".N":GOS|
|00000c70| 55 42 36 35 30 30 0a 36 | 30 34 36 20 50 52 49 4e |UB6500.6|046 PRIN|
|00000c80| 54 20 53 50 43 28 32 34 | 29 22 1e 45 22 3a 47 4f |T SPC(24|)".E":GO|
|00000c90| 53 55 42 36 35 30 30 0a | 36 30 35 30 20 50 52 49 |SUB6500.|6050 PRI|
|00000ca0| 4e 54 22 11 11 11 11 11 | 20 9c 4c 44 4d 20 50 52 |NT".....| .LDM PR|
|00000cb0| 4f 47 52 41 4d 53 20 2d | 20 57 49 4e 53 54 4f 4e |OGRAMS -| WINSTON|
|00000cc0| 20 53 41 4c 45 4d 20 4e | 43 20 2d 20 31 39 38 36 | SALEM N|C - 1986|
|00000cd0| 22 3a 47 4f 53 55 42 36 | 36 30 30 0a 36 35 30 30 |":GOSUB6|600.6500|
|00000ce0| 20 46 4f 52 20 44 4c 3d | 31 54 4f 31 35 30 3a 4e | FOR DL=|1TO150:N|
|00000cf0| 45 58 54 20 44 4c 3a 52 | 45 54 55 52 4e 0a 39 20 |EXT DL:R|ETURN.9 |
|00000d00| 46 4f 52 20 44 4c 3d 31 | 54 4f 20 31 35 30 30 3a |FOR DL=1|TO 1500:|
|00000d10| 4e 45 58 54 20 44 4c 3a | 52 45 54 55 52 4e 0a    |NEXT DL:|RETURN. |
+--------+-------------------------+-------------------------+--------+--------+