home *** CD-ROM | disk | FTP | other *** search
Unknown | 2019-04-13 | 3.0 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%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 39 38 20 50 52 49 4e 54 | 43 48 52 24 28 31 34 37 |98 PRINT|CHR$(147|
|00000010| 29 0a 31 30 30 20 50 52 | 49 4e 54 22 4f 50 54 49 |).100 PR|INT"OPTI|
|00000020| 4f 4e 20 23 31 20 43 55 | 42 45 53 22 3a 50 52 49 |ON #1 CU|BES":PRI|
|00000030| 4e 54 3a 50 52 49 4e 54 | 3a 50 52 49 4e 54 3a 50 |NT:PRINT|:PRINT:P|
|00000040| 52 49 4e 54 0a 31 32 30 | 20 50 52 49 4e 54 22 4f |RINT.120| PRINT"O|
|00000050| 50 54 49 4f 4e 20 23 32 | 20 43 55 42 45 20 52 4f |PTION #2| CUBE RO|
|00000060| 4f 54 53 22 3a 50 52 49 | 4e 54 3a 50 52 49 4e 54 |OTS":PRI|NT:PRINT|
|00000070| 3a 50 52 49 4e 54 3a 50 | 52 49 4e 54 0a 31 32 35 |:PRINT:P|RINT.125|
|00000080| 20 50 52 49 4e 54 22 4f | 50 54 49 4f 4e 20 23 33 | PRINT"O|PTION #3|
|00000090| 20 45 4e 44 20 50 52 4f | 47 52 41 4d 22 3a 50 52 | END PRO|GRAM":PR|
|000000a0| 49 4e 54 3a 50 52 49 4e | 54 3a 50 52 49 4e 54 3a |INT:PRIN|T:PRINT:|
|000000b0| 50 52 49 4e 54 0a 31 33 | 30 20 49 4e 50 55 54 22 |PRINT.13|0 INPUT"|
|000000c0| 53 45 4c 45 43 54 28 31 | 2f 32 2f 33 29 22 3b 41 |SELECT(1|/2/3)";A|
|000000d0| 0a 31 34 30 20 4f 4e 20 | 41 20 47 4f 54 4f 20 32 |.140 ON |A GOTO 2|
|000000e0| 30 30 2c 36 30 30 2c 32 | 30 30 30 0a 32 30 30 20 |00,600,2|000.200 |
|000000f0| 50 52 49 4e 54 43 48 52 | 24 28 31 34 37 29 3a 50 |PRINTCHR|$(147):P|
|00000100| 4f 4b 45 20 35 33 32 38 | 30 2c 37 3a 50 4f 4b 45 |OKE 5328|0,7:POKE|
|00000110| 20 35 33 32 38 31 2c 37 | 0a 32 31 30 20 50 52 49 | 53281,7|.210 PRI|
|00000120| 4e 54 22 4f 50 54 49 4f | 4e 20 23 31 20 53 49 4e |NT"OPTIO|N #1 SIN|
|00000130| 47 4c 45 20 43 55 42 45 | 53 22 3a 50 52 49 4e 54 |GLE CUBE|S":PRINT|
|00000140| 3a 50 52 49 4e 54 3a 50 | 52 49 4e 54 3a 50 52 49 |:PRINT:P|RINT:PRI|
|00000150| 4e 54 0a 32 32 30 20 50 | 52 49 4e 54 22 4f 50 54 |NT.220 P|RINT"OPT|
|00000160| 49 4f 4e 20 23 32 20 43 | 4f 4e 54 49 4e 4f 55 53 |ION #2 C|ONTINOUS|
|00000170| 20 43 55 42 45 53 22 3a | 50 52 49 4e 54 3a 50 52 | CUBES":|PRINT:PR|
|00000180| 49 4e 54 3a 50 52 49 4e | 54 3a 50 52 49 4e 54 0a |INT:PRIN|T:PRINT.|
|00000190| 32 33 30 20 49 4e 50 55 | 54 22 53 45 4c 45 43 54 |230 INPU|T"SELECT|
|000001a0| 28 31 2f 32 29 22 3b 42 | 0a 32 34 30 20 4f 4e 20 |(1/2)";B|.240 ON |
|000001b0| 42 20 47 4f 54 4f 20 32 | 35 30 2c 34 30 30 0a 32 |B GOTO 2|50,400.2|
|000001c0| 35 30 20 50 52 49 4e 54 | 43 48 52 24 28 31 34 37 |50 PRINT|CHR$(147|
|000001d0| 29 0a 32 36 30 20 49 4e | 50 55 54 22 53 43 52 45 |).260 IN|PUT"SCRE|
|000001e0| 45 4e 20 4f 52 20 50 52 | 49 4e 54 45 52 28 53 2f |EN OR PR|INTER(S/|
|000001f0| 50 29 22 3b 5a 24 0a 32 | 36 35 20 49 46 20 5a 24 |P)";Z$.2|65 IF Z$|
|00000200| 3d 22 53 22 20 54 48 45 | 4e 20 32 38 30 0a 32 37 |="S" THE|N 280.27|
|00000210| 30 20 49 46 20 5a 24 3d | 22 50 22 20 54 48 45 4e |0 IF Z$=|"P" THEN|
|00000220| 20 33 32 30 0a 32 38 30 | 20 50 52 49 4e 54 43 48 | 320.280| PRINTCH|
|00000230| 52 24 28 31 34 37 29 3a | 49 4e 50 55 54 22 4e 55 |R$(147):|INPUT"NU|
|00000240| 4d 42 45 52 20 54 4f 20 | 42 45 20 43 55 42 45 44 |MBER TO |BE CUBED|
|00000250| 22 3b 59 0a 32 39 30 20 | 58 3d 59 5e 33 0a 33 30 |";Y.290 |X=Y^3.30|
|00000260| 30 20 50 52 49 4e 54 59 | 3b 22 43 55 42 45 44 20 |0 PRINTY|;"CUBED |
|00000270| 3d 22 3b 58 0a 33 30 34 | 20 49 4e 50 55 54 22 41 |=";X.304| INPUT"A|
|00000280| 4e 4f 54 48 45 52 20 4f | 52 20 4d 45 4e 55 28 41 |NOTHER O|R MENU(A|
|00000290| 2f 4d 29 22 3b 51 24 0a | 33 30 35 20 49 46 20 51 |/M)";Q$.|305 IF Q|
|000002a0| 24 3d 22 41 22 20 54 48 | 45 4e 20 32 35 30 0a 33 |$="A" TH|EN 250.3|
|000002b0| 30 38 20 49 46 20 51 24 | 3d 22 4d 22 20 54 48 45 |08 IF Q$|="M" THE|
|000002c0| 4e 20 39 38 0a 33 32 30 | 20 50 52 49 4e 54 43 48 |N 98.320| PRINTCH|
|000002d0| 52 24 28 31 34 37 29 3a | 49 4e 50 55 54 22 4e 55 |R$(147):|INPUT"NU|
|000002e0| 4d 42 45 52 20 54 4f 20 | 42 45 20 43 55 42 45 44 |MBER TO |BE CUBED|
|000002f0| 22 3b 59 0a 33 33 30 20 | 4f 50 45 4e 33 2c 34 0a |";Y.330 |OPEN3,4.|
|00000300| 33 34 30 20 43 4d 44 33 | 0a 33 35 30 20 58 3d 59 |340 CMD3|.350 X=Y|
|00000310| 5e 33 0a 33 36 30 20 50 | 52 49 4e 54 59 22 43 55 |^3.360 P|RINTY"CU|
|00000320| 42 45 44 20 3d 22 3b 58 | 0a 33 37 30 20 50 52 49 |BED =";X|.370 PRI|
|00000330| 4e 54 23 33 0a 33 38 30 | 20 43 4c 4f 53 45 20 33 |NT#3.380| CLOSE 3|
|00000340| 0a 33 39 30 20 49 4e 50 | 55 54 22 41 4e 4f 54 48 |.390 INP|UT"ANOTH|
|00000350| 45 52 20 4f 52 20 4d 45 | 4e 55 28 41 2f 4d 29 22 |ER OR ME|NU(A/M)"|
|00000360| 3b 57 24 0a 33 39 33 20 | 49 46 20 57 24 3d 22 41 |;W$.393 |IF W$="A|
|00000370| 22 20 54 48 45 4e 20 33 | 32 30 0a 33 39 35 20 49 |" THEN 3|20.395 I|
|00000380| 46 20 57 24 3d 22 4d 22 | 20 54 48 45 4e 20 39 38 |F W$="M"| THEN 98|
|00000390| 0a 34 30 30 20 50 52 49 | 4e 54 43 48 52 24 28 31 |.400 PRI|NTCHR$(1|
|000003a0| 34 37 29 3a 50 4f 4b 45 | 20 35 33 32 38 30 2c 32 |47):POKE| 53280,2|
|000003b0| 3a 50 4f 4b 45 35 33 32 | 38 31 2c 33 0a 34 30 35 |:POKE532|81,3.405|
|000003c0| 20 49 4e 50 55 54 22 53 | 43 52 45 45 4e 20 4f 52 | INPUT"S|CREEN OR|
|000003d0| 20 50 52 49 4e 54 45 52 | 28 53 2f 50 29 22 3b 50 | PRINTER|(S/P)";P|
|000003e0| 24 0a 34 30 37 20 49 46 | 20 50 24 3d 22 53 22 20 |$.407 IF| P$="S" |
|000003f0| 54 48 45 4e 20 34 31 30 | 0a 34 30 39 20 49 46 20 |THEN 410|.409 IF |
|00000400| 50 24 3d 22 50 22 20 54 | 48 45 4e 20 35 30 30 0a |P$="P" T|HEN 500.|
|00000410| 34 31 30 20 46 4f 52 20 | 59 20 3d 20 31 20 54 4f |410 FOR |Y = 1 TO|
|00000420| 20 32 35 30 0a 34 32 30 | 20 58 3d 59 5e 33 0a 34 | 250.420| X=Y^3.4|
|00000430| 33 30 20 50 52 49 4e 54 | 59 3b 22 43 55 42 45 44 |30 PRINT|Y;"CUBED|
|00000440| 20 3d 22 3b 58 0a 34 33 | 35 20 46 4f 52 20 55 3d | =";X.43|5 FOR U=|
|00000450| 20 31 20 54 4f 20 31 35 | 30 30 3a 4e 45 58 54 20 | 1 TO 15|00:NEXT |
|00000460| 55 3a 50 52 49 4e 54 3a | 50 52 49 4e 54 3a 50 52 |U:PRINT:|PRINT:PR|
|00000470| 49 4e 54 0a 34 33 37 20 | 4e 45 58 54 20 59 0a 34 |INT.437 |NEXT Y.4|
|00000480| 34 30 20 49 4e 50 55 54 | 22 41 47 41 49 4e 20 4f |40 INPUT|"AGAIN O|
|00000490| 52 20 4d 45 4e 55 28 41 | 2f 4d 29 22 3b 46 24 0a |R MENU(A|/M)";F$.|
|000004a0| 34 34 32 20 49 46 20 46 | 24 3d 22 41 22 20 54 48 |442 IF F|$="A" TH|
|000004b0| 45 4e 20 34 30 30 0a 34 | 34 35 20 49 46 20 46 24 |EN 400.4|45 IF F$|
|000004c0| 3d 22 4d 22 20 54 48 45 | 4e 20 39 38 0a 35 30 30 |="M" THE|N 98.500|
|000004d0| 20 50 52 49 4e 54 43 48 | 52 24 28 31 34 37 29 0a | PRINTCH|R$(147).|
|000004e0| 35 30 31 20 50 52 49 4e | 54 22 50 52 49 4e 54 49 |501 PRIN|T"PRINTI|
|000004f0| 4e 47 22 0a 35 31 30 20 | 4f 50 45 4e 33 2c 34 0a |NG".510 |OPEN3,4.|
|00000500| 35 32 30 20 43 4d 44 33 | 0a 35 33 30 20 46 4f 52 |520 CMD3|.530 FOR|
|00000510| 20 59 3d 20 31 20 54 4f | 20 32 35 30 0a 35 34 30 | Y= 1 TO| 250.540|
|00000520| 20 58 3d 59 5e 33 0a 35 | 35 30 20 50 52 49 4e 54 | X=Y^3.5|50 PRINT|
|00000530| 59 3b 22 43 55 42 45 44 | 20 3d 22 3b 58 0a 35 36 |Y;"CUBED| =";X.56|
|00000540| 30 20 4e 45 58 54 20 59 | 0a 35 36 35 20 50 52 49 |0 NEXT Y|.565 PRI|
|00000550| 4e 54 23 33 0a 35 36 38 | 20 43 4c 4f 53 45 33 0a |NT#3.568| CLOSE3.|
|00000560| 35 37 30 20 49 4e 50 55 | 54 22 41 4e 4f 54 48 45 |570 INPU|T"ANOTHE|
|00000570| 52 20 4f 52 20 4d 45 4e | 55 28 41 2f 4d 29 22 3b |R OR MEN|U(A/M)";|
|00000580| 49 24 0a 35 38 30 20 49 | 46 20 49 24 3d 22 41 22 |I$.580 I|F I$="A"|
|00000590| 20 54 48 45 4e 20 35 30 | 30 0a 35 39 30 20 49 46 | THEN 50|0.590 IF|
|000005a0| 20 49 24 3d 22 4d 22 20 | 54 48 45 4e 20 39 38 0a | I$="M" |THEN 98.|
|000005b0| 36 30 30 20 50 52 49 4e | 54 43 48 52 24 28 31 34 |600 PRIN|TCHR$(14|
|000005c0| 37 29 0a 36 31 30 20 50 | 52 49 4e 54 22 09 00 54 |7).610 P|RINT"..T|
|000005d0| 49 4f 4e 20 23 31 20 53 | 49 4e 47 4c 45 20 43 55 |ION #1 S|INGLE CU|
|000005e0| 42 45 20 52 4f 4f 54 22 | 3a 50 52 49 4e 54 3a 50 |BE ROOT"|:PRINT:P|
|000005f0| 52 49 4e 54 3a 50 52 49 | 4e 54 3a 50 52 49 4e 54 |RINT:PRI|NT:PRINT|
|00000600| 0a 36 32 30 20 50 52 49 | 4e 54 22 4f 50 54 49 4f |.620 PRI|NT"OPTIO|
|00000610| 4e 20 23 32 20 43 4f 4e | 54 49 4e 4f 55 53 20 43 |N #2 CON|TINOUS C|
|00000620| 55 42 45 20 52 4f 4f 54 | 53 22 3a 50 52 49 4e 54 |UBE ROOT|S":PRINT|
|00000630| 3a 50 52 49 4e 54 3a 50 | 52 49 4e 54 3a 50 52 49 |:PRINT:P|RINT:PRI|
|00000640| 4e 54 0a 36 33 30 20 49 | 4e 50 55 54 22 53 45 4c |NT.630 I|NPUT"SEL|
|00000650| 45 43 54 28 31 2f 32 29 | 22 3b 4f 0a 36 34 30 20 |ECT(1/2)|";O.640 |
|00000660| 4f 4e 20 4f 20 47 4f 54 | 4f 20 36 36 30 2c 39 30 |ON O GOT|O 660,90|
|00000670| 30 0a 36 36 30 20 50 52 | 49 4e 54 43 48 52 24 28 |0.660 PR|INTCHR$(|
|00000680| 31 34 37 29 0a 36 36 35 | 20 49 4e 50 55 54 22 53 |147).665| INPUT"S|
|00000690| 43 52 45 45 4e 20 4f 52 | 20 50 52 49 4e 54 45 52 |CREEN OR| PRINTER|
|000006a0| 28 53 2f 50 29 22 3b 54 | 24 0a 36 37 30 20 49 46 |(S/P)";T|$.670 IF|
|000006b0| 20 54 24 3d 22 53 22 20 | 54 48 45 4e 20 36 39 30 | T$="S" |THEN 690|
|000006c0| 0a 36 38 30 20 49 46 20 | 54 24 3d 22 50 22 20 54 |.680 IF |T$="P" T|
|000006d0| 48 45 4e 20 37 34 35 0a | 36 39 30 20 49 4e 50 55 |HEN 745.|690 INPU|
|000006e0| 54 22 45 4e 54 45 52 20 | 4e 55 4d 42 45 52 22 3b |T"ENTER |NUMBER";|
|000006f0| 59 0a 37 30 30 20 58 3d | 59 5e 28 31 2f 33 29 0a |Y.700 X=|Y^(1/3).|
|00000700| 37 31 30 20 50 52 49 4e | 54 22 54 48 45 20 43 55 |710 PRIN|T"THE CU|
|00000710| 42 45 44 20 52 4f 4f 54 | 20 4f 46 22 3b 59 3b 22 |BED ROOT| OF";Y;"|
|00000720| 3d 22 3b 58 0a 37 32 30 | 20 49 4e 50 55 54 22 41 |=";X.720| INPUT"A|
|00000730| 4e 4f 54 48 45 52 20 4f | 52 20 4d 45 4e 55 28 41 |NOTHER O|R MENU(A|
|00000740| 2f 4d 29 22 3b 52 24 0a | 37 33 30 20 49 46 20 52 |/M)";R$.|730 IF R|
|00000750| 24 3d 22 41 22 20 54 48 | 45 4e 20 36 36 30 0a 37 |$="A" TH|EN 660.7|
|00000760| 34 30 20 49 46 20 52 24 | 3d 22 4d 22 20 54 48 45 |40 IF R$|="M" THE|
|00000770| 4e 20 39 38 0a 37 34 35 | 20 50 52 49 4e 54 43 48 |N 98.745| PRINTCH|
|00000780| 52 24 28 31 34 37 29 0a | 37 35 30 20 49 4e 50 55 |R$(147).|750 INPU|
|00000790| 54 22 45 4e 54 45 52 20 | 4e 55 4d 42 45 52 22 3b |T"ENTER |NUMBER";|
|000007a0| 59 0a 37 36 30 20 4f 50 | 45 4e 33 2c 34 0a 37 37 |Y.760 OP|EN3,4.77|
|000007b0| 30 20 43 4d 44 20 33 0a | 37 38 30 20 58 3d 59 5e |0 CMD 3.|780 X=Y^|
|000007c0| 28 31 2f 33 29 0a 37 39 | 30 20 50 52 49 4e 54 22 |(1/3).79|0 PRINT"|
|000007d0| 54 48 45 20 43 55 42 45 | 44 20 52 4f 4f 54 20 4f |THE CUBE|D ROOT O|
|000007e0| 46 22 3b 59 3b 22 3d 22 | 3b 58 0a 38 30 30 20 50 |F";Y;"="|;X.800 P|
|000007f0| 52 49 4e 54 23 33 0a 38 | 30 35 20 43 4c 4f 53 45 |RINT#3.8|05 CLOSE|
|00000800| 20 33 0a 38 31 30 20 49 | 4e 50 55 54 22 41 4e 4f | 3.810 I|NPUT"ANO|
|00000810| 54 48 45 52 20 4f 52 20 | 4d 45 4e 55 28 41 2f 4d |THER OR |MENU(A/M|
|00000820| 29 22 3b 4b 24 0a 38 31 | 32 20 49 46 20 4b 24 3d |)";K$.81|2 IF K$=|
|00000830| 22 41 22 20 54 48 45 4e | 20 37 34 35 0a 38 31 35 |"A" THEN| 745.815|
|00000840| 20 49 46 20 4b 24 09 0a | 39 30 30 20 50 52 49 4e | IF K$..|900 PRIN|
|00000850| 54 43 48 52 24 28 31 34 | 37 29 3a 50 4f 4b 45 20 |TCHR$(14|7):POKE |
|00000860| 35 33 32 38 30 2c 30 3a | 50 4f 4b 45 20 35 33 32 |53280,0:|POKE 532|
|00000870| 38 31 2c 32 0a 39 31 30 | 20 49 4e 50 55 54 22 53 |81,2.910| INPUT"S|
|00000880| 43 52 45 45 4e 20 4f 52 | 20 50 52 49 4e 54 45 52 |CREEN OR| PRINTER|
|00000890| 28 53 2f 50 29 22 3b 45 | 24 0a 39 31 32 20 49 46 |(S/P)";E|$.912 IF|
|000008a0| 20 45 24 3d 22 53 22 20 | 54 48 45 4e 20 39 32 30 | E$="S" |THEN 920|
|000008b0| 0a 39 31 35 20 49 46 20 | 45 24 3d 22 50 22 20 54 |.915 IF |E$="P" T|
|000008c0| 48 45 4e 20 31 30 30 30 | 0a 39 32 30 20 50 52 49 |HEN 1000|.920 PRI|
|000008d0| 4e 54 43 48 52 24 28 31 | 34 37 29 0a 39 32 35 20 |NTCHR$(1|47).925 |
|000008e0| 46 4f 52 20 59 3d 20 31 | 20 54 4f 20 32 35 30 0a |FOR Y= 1| TO 250.|
|000008f0| 39 33 30 20 58 3d 59 5e | 28 31 2f 33 29 0a 39 34 |930 X=Y^|(1/3).94|
|00000900| 30 20 50 52 49 4e 54 22 | 54 48 45 20 43 55 42 45 |0 PRINT"|THE CUBE|
|00000910| 44 20 52 4f 4f 54 20 4f | 46 22 3b 59 3b 22 3d 22 |D ROOT O|F";Y;"="|
|00000920| 3b 58 0a 39 35 30 20 46 | 4f 52 20 54 3d 31 20 54 |;X.950 F|OR T=1 T|
|00000930| 4f 20 31 35 30 30 3a 4e | 45 58 54 20 54 3a 50 52 |O 1500:N|EXT T:PR|
|00000940| 49 4e 54 3a 50 52 49 4e | 54 3a 50 52 49 4e 54 3a |INT:PRIN|T:PRINT:|
|00000950| 50 52 49 4e 54 0a 39 36 | 30 20 4e 45 58 54 20 59 |PRINT.96|0 NEXT Y|
|00000960| 0a 39 37 30 20 49 4e 50 | 55 54 22 41 47 41 49 4e |.970 INP|UT"AGAIN|
|00000970| 20 4f 52 20 4d 45 4e 55 | 28 41 2f 4d 29 22 3b 48 | OR MENU|(A/M)";H|
|00000980| 24 0a 39 38 30 20 49 46 | 20 48 24 3d 22 41 22 20 |$.980 IF| H$="A" |
|00000990| 54 48 45 4e 20 39 32 30 | 0a 39 39 30 20 49 46 20 |THEN 920|.990 IF |
|000009a0| 48 24 3d 22 4d 22 20 54 | 48 45 4e 20 39 38 0a 31 |H$="M" T|HEN 98.1|
|000009b0| 30 30 30 20 50 52 49 4e | 54 43 48 52 24 28 31 34 |000 PRIN|TCHR$(14|
|000009c0| 37 29 0a 31 30 30 35 20 | 50 52 49 4e 54 22 50 52 |7).1005 |PRINT"PR|
|000009d0| 49 4e 54 49 4e 47 22 0a | 31 30 31 30 20 4f 50 45 |INTING".|1010 OPE|
|000009e0| 4e 33 2c 34 0a 31 30 32 | 30 20 43 4d 44 20 33 0a |N3,4.102|0 CMD 3.|
|000009f0| 31 30 33 30 20 46 4f 52 | 20 59 3d 20 31 20 54 4f |1030 FOR| Y= 1 TO|
|00000a00| 20 32 35 30 0a 31 30 34 | 30 20 58 3d 59 5e 28 31 | 250.104|0 X=Y^(1|
|00000a10| 2f 33 29 0a 31 30 35 30 | 20 50 52 49 4e 54 22 54 |/3).1050| PRINT"T|
|00000a20| 48 45 20 43 55 42 45 44 | 20 52 4f 4f 54 20 4f 46 |HE CUBED| ROOT OF|
|00000a30| 22 3b 59 3b 22 3d 22 3b | 58 0a 31 30 36 30 20 4e |";Y;"=";|X.1060 N|
|00000a40| 45 58 54 20 59 0a 31 30 | 37 30 20 50 52 49 4e 54 |EXT Y.10|70 PRINT|
|00000a50| 23 33 0a 31 30 38 30 20 | 43 4c 4f 53 45 33 0a 31 |#3.1080 |CLOSE3.1|
|00000a60| 30 39 30 20 49 4e 50 55 | 54 22 41 47 41 49 4e 20 |090 INPU|T"AGAIN |
|00000a70| 4f 52 20 4d 45 4e 55 28 | 41 2f 4d 29 22 3b 53 24 |OR MENU(|A/M)";S$|
|00000a80| 0a 31 30 39 32 20 49 46 | 20 53 24 3d 22 41 22 20 |.1092 IF| S$="A" |
|00000a90| 54 48 45 4e 20 31 30 30 | 30 0a 31 30 39 35 20 49 |THEN 100|0.1095 I|
|00000aa0| 46 20 53 24 3d 22 4d 22 | 20 54 48 45 4e 20 39 38 |F S$="M"| THEN 98|
|00000ab0| 0a 32 30 30 30 20 45 4e | 44 0a 36 30 30 30 20 50 |.2000 EN|D.6000 P|
|00000ac0| 52 49 4e 54 43 48 52 24 | 28 31 34 37 29 3a 50 4f |RINTCHR$|(147):PO|
|00000ad0| 4b 45 35 33 09 0a 36 30 | 30 35 20 50 52 49 4e 54 |KE53..60|05 PRINT|
|00000ae0| 3a 50 52 49 4e 54 3a 50 | 52 49 4e 54 3a 50 52 49 |:PRINT:P|RINT:PRI|
|00000af0| 4e 54 0a 36 30 31 30 20 | 50 52 49 4e 54 54 41 42 |NT.6010 |PRINTTAB|
|00000b00| 28 31 32 29 43 48 52 24 | 28 31 34 34 29 22 2a 2a |(12)CHR$|(144)"**|
|00000b10| 2a 20 46 4f 47 47 45 52 | 20 2a 2a 2a 22 0a 36 30 |* FOGGER| ***".60|
|00000b20| 32 30 20 46 4f 52 20 54 | 3d 20 31 20 54 4f 20 33 |20 FOR T|= 1 TO 3|
|00000b30| 30 30 30 3a 4e 45 58 54 | 20 54 3a 50 52 49 4e 54 |000:NEXT| T:PRINT|
|00000b40| 3a 50 52 49 4e 54 3a 50 | 52 49 4e 54 3a 50 52 49 |:PRINT:P|RINT:PRI|
|00000b50| 4e 54 0a 36 30 33 30 20 | 50 52 49 4e 54 54 41 42 |NT.6030 |PRINTTAB|
|00000b60| 28 31 32 29 43 48 52 24 | 28 31 34 34 29 22 2a 2a |(12)CHR$|(144)"**|
|00000b70| 2a 20 50 52 45 53 45 4e | 54 53 20 2a 2a 2a 22 0a |* PRESEN|TS ***".|
|00000b80| 36 30 34 30 20 46 4f 52 | 20 46 3d 31 20 54 4f 20 |6040 FOR| F=1 TO |
|00000b90| 33 30 30 30 3a 4e 45 58 | 54 20 46 0a 36 30 34 35 |3000:NEX|T F.6045|
|00000ba0| 20 50 52 49 4e 54 43 48 | 52 24 28 31 34 37 29 3a | PRINTCH|R$(147):|
|00000bb0| 50 52 49 4e 54 3a 50 52 | 49 4e 54 3a 50 52 49 4e |PRINT:PR|INT:PRIN|
|00000bc0| 54 3a 50 52 49 4e 54 3a | 50 52 49 4e 54 3a 50 52 |T:PRINT:|PRINT:PR|
|00000bd0| 49 4e 54 0a 36 30 35 30 | 20 50 52 49 4e 54 54 41 |INT.6050| PRINTTA|
|00000be0| 42 28 31 30 29 43 48 52 | 24 28 31 34 34 29 22 43 |B(10)CHR|$(144)"C|
|00000bf0| 55 42 45 53 20 41 4e 44 | 20 43 55 42 45 20 52 4f |UBES AND| CUBE RO|
|00000c00| 4f 54 53 22 0a 36 30 35 | 35 20 46 4f 52 20 55 3d |OTS".605|5 FOR U=|
|00000c10| 20 31 20 54 4f 20 33 30 | 30 30 3a 4e 45 58 54 20 | 1 TO 30|00:NEXT |
|00000c20| 55 0a 36 30 36 30 20 52 | 45 54 55 52 4e 0a |U.6060 R|ETURN. |
+--------+-------------------------+-------------------------+--------+--------+