home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2019-04-13 | 3.1 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 35 20 47 4f 53 55 42 | 20 36 30 30 30 0a 39 38 |95 GOSUB| 6000.98|
|00000010| 20 50 52 49 4e 54 43 48 | 52 24 28 31 34 37 29 0a | PRINTCH|R$(147).|
|00000020| 31 30 30 20 50 52 49 4e | 54 22 4f 50 54 49 4f 4e |100 PRIN|T"OPTION|
|00000030| 20 23 31 20 43 55 42 45 | 53 22 3a 50 52 49 4e 54 | #1 CUBE|S":PRINT|
|00000040| 3a 50 52 49 4e 54 3a 50 | 52 49 4e 54 3a 50 52 49 |:PRINT:P|RINT:PRI|
|00000050| 4e 54 0a 31 32 30 20 50 | 52 49 4e 54 22 4f 50 54 |NT.120 P|RINT"OPT|
|00000060| 49 4f 4e 20 23 32 20 43 | 55 42 45 20 52 4f 4f 54 |ION #2 C|UBE ROOT|
|00000070| 53 22 3a 50 52 49 4e 54 | 3a 50 52 49 4e 54 3a 50 |S":PRINT|:PRINT:P|
|00000080| 52 49 4e 54 3a 50 52 49 | 4e 54 0a 31 32 35 20 50 |RINT:PRI|NT.125 P|
|00000090| 52 49 4e 54 22 4f 50 54 | 49 4f 4e 20 23 33 20 45 |RINT"OPT|ION #3 E|
|000000a0| 4e 44 20 50 52 4f 47 52 | 41 4d 22 3a 50 52 49 4e |ND PROGR|AM":PRIN|
|000000b0| 54 3a 50 52 49 4e 54 3a | 50 52 49 4e 54 3a 50 52 |T:PRINT:|PRINT:PR|
|000000c0| 49 4e 54 0a 31 33 30 20 | 49 4e 50 55 54 22 53 45 |INT.130 |INPUT"SE|
|000000d0| 4c 45 43 54 28 31 2f 32 | 2f 33 29 22 3b 41 0a 31 |LECT(1/2|/3)";A.1|
|000000e0| 34 30 20 4f 4e 20 41 20 | 47 4f 54 4f 20 32 30 30 |40 ON A |GOTO 200|
|000000f0| 2c 36 30 30 2c 32 30 30 | 30 0a 32 30 30 20 50 52 |,600,200|0.200 PR|
|00000100| 49 4e 54 43 48 52 24 28 | 31 34 37 29 3a 50 4f 4b |INTCHR$(|147):POK|
|00000110| 45 20 35 33 32 38 30 2c | 37 3a 50 4f 4b 45 20 35 |E 53280,|7:POKE 5|
|00000120| 33 32 38 31 2c 37 0a 32 | 31 30 20 50 52 49 4e 54 |3281,7.2|10 PRINT|
|00000130| 22 4f 50 54 49 4f 4e 20 | 23 31 20 53 49 4e 47 4c |"OPTION |#1 SINGL|
|00000140| 45 20 43 55 42 45 53 22 | 3a 50 52 49 4e 54 3a 50 |E CUBES"|:PRINT:P|
|00000150| 52 49 4e 54 3a 50 52 49 | 4e 54 3a 50 52 49 4e 54 |RINT:PRI|NT:PRINT|
|00000160| 0a 32 32 30 20 50 52 49 | 4e 54 22 4f 50 54 49 4f |.220 PRI|NT"OPTIO|
|00000170| 4e 20 23 32 20 43 4f 4e | 54 49 4e 4f 55 53 20 43 |N #2 CON|TINOUS C|
|00000180| 55 42 45 53 22 3a 50 52 | 49 4e 54 3a 50 52 49 4e |UBES":PR|INT:PRIN|
|00000190| 54 3a 50 52 49 4e 54 3a | 50 52 49 4e 54 0a 32 33 |T:PRINT:|PRINT.23|
|000001a0| 30 20 49 4e 50 55 54 22 | 53 45 4c 45 43 54 28 31 |0 INPUT"|SELECT(1|
|000001b0| 2f 32 29 22 3b 42 0a 32 | 34 30 20 4f 4e 20 42 20 |/2)";B.2|40 ON B |
|000001c0| 47 4f 54 4f 20 32 35 30 | 2c 34 30 30 0a 32 35 30 |GOTO 250|,400.250|
|000001d0| 20 50 52 49 4e 54 43 48 | 52 24 28 31 34 37 29 0a | PRINTCH|R$(147).|
|000001e0| 32 36 30 20 49 4e 50 55 | 54 22 53 43 52 45 45 4e |260 INPU|T"SCREEN|
|000001f0| 20 4f 52 20 50 52 49 4e | 54 45 52 28 53 2f 50 29 | OR PRIN|TER(S/P)|
|00000200| 22 3b 5a 24 0a 32 36 35 | 20 49 46 20 5a 24 3d 22 |";Z$.265| IF Z$="|
|00000210| 53 22 20 54 48 45 4e 20 | 32 38 30 0a 32 37 30 20 |S" THEN |280.270 |
|00000220| 49 46 20 5a 24 3d 22 50 | 22 20 54 48 45 4e 20 33 |IF Z$="P|" THEN 3|
|00000230| 32 30 0a 32 38 30 20 50 | 52 49 4e 54 43 48 52 24 |20.280 P|RINTCHR$|
|00000240| 28 31 34 37 29 3a 49 4e | 50 55 54 22 4e 55 4d 42 |(147):IN|PUT"NUMB|
|00000250| 45 52 20 54 4f 20 42 45 | 20 43 55 42 45 44 22 3b |ER TO BE| CUBED";|
|00000260| 59 0a 32 39 30 20 58 3d | 59 5e 33 0a 33 30 30 20 |Y.290 X=|Y^3.300 |
|00000270| 50 52 49 4e 54 59 3b 22 | 43 55 42 45 44 20 3d 22 |PRINTY;"|CUBED ="|
|00000280| 3b 58 0a 33 30 34 20 49 | 4e 50 55 54 22 41 4e 4f |;X.304 I|NPUT"ANO|
|00000290| 54 48 45 52 20 4f 52 20 | 4d 45 4e 55 28 41 2f 4d |THER OR |MENU(A/M|
|000002a0| 29 22 3b 51 24 0a 33 30 | 35 20 49 46 20 51 24 3d |)";Q$.30|5 IF Q$=|
|000002b0| 22 41 22 20 54 48 45 4e | 20 32 35 30 0a 33 30 38 |"A" THEN| 250.308|
|000002c0| 20 49 46 20 51 24 3d 22 | 4d 22 20 54 48 45 4e 20 | IF Q$="|M" THEN |
|000002d0| 39 38 0a 33 32 30 20 50 | 52 49 4e 54 43 48 52 24 |98.320 P|RINTCHR$|
|000002e0| 28 31 34 37 29 3a 49 4e | 50 55 54 22 4e 55 4d 42 |(147):IN|PUT"NUMB|
|000002f0| 45 52 20 54 4f 20 42 45 | 20 43 55 42 45 44 22 3b |ER TO BE| CUBED";|
|00000300| 59 0a 33 33 30 20 4f 50 | 45 4e 33 2c 34 0a 33 34 |Y.330 OP|EN3,4.34|
|00000310| 30 20 43 4d 44 33 0a 33 | 35 30 20 58 3d 59 5e 33 |0 CMD3.3|50 X=Y^3|
|00000320| 0a 33 36 30 20 50 52 49 | 4e 54 59 22 43 55 42 45 |.360 PRI|NTY"CUBE|
|00000330| 44 20 3d 22 3b 58 0a 33 | 37 30 20 50 52 49 4e 54 |D =";X.3|70 PRINT|
|00000340| 23 33 0a 33 38 30 20 43 | 4c 4f 53 45 20 33 0a 33 |#3.380 C|LOSE 3.3|
|00000350| 39 30 20 49 4e 50 55 54 | 22 41 4e 4f 54 48 45 52 |90 INPUT|"ANOTHER|
|00000360| 20 4f 52 20 4d 45 4e 55 | 28 41 2f 4d 29 22 3b 57 | OR MENU|(A/M)";W|
|00000370| 24 0a 33 39 33 20 49 46 | 20 57 24 3d 22 41 22 20 |$.393 IF| W$="A" |
|00000380| 54 48 45 4e 20 33 32 30 | 0a 33 39 35 20 49 46 20 |THEN 320|.395 IF |
|00000390| 57 24 3d 22 4d 22 20 54 | 48 45 4e 20 39 38 0a 34 |W$="M" T|HEN 98.4|
|000003a0| 30 30 20 50 52 49 4e 54 | 43 48 52 24 28 31 34 37 |00 PRINT|CHR$(147|
|000003b0| 29 3a 50 4f 4b 45 20 35 | 33 32 38 30 2c 32 3a 50 |):POKE 5|3280,2:P|
|000003c0| 4f 4b 45 35 33 32 38 31 | 2c 33 0a 34 30 35 20 49 |OKE53281|,3.405 I|
|000003d0| 4e 50 55 54 22 53 43 52 | 45 45 4e 20 4f 52 20 50 |NPUT"SCR|EEN OR P|
|000003e0| 52 49 4e 54 45 52 28 53 | 2f 50 29 22 3b 50 24 0a |RINTER(S|/P)";P$.|
|000003f0| 34 30 37 20 49 46 20 50 | 24 3d 22 53 22 20 54 48 |407 IF P|$="S" TH|
|00000400| 45 4e 20 34 31 30 0a 34 | 30 39 20 49 46 20 50 24 |EN 410.4|09 IF P$|
|00000410| 3d 22 50 22 20 54 48 45 | 4e 20 35 30 30 0a 34 31 |="P" THE|N 500.41|
|00000420| 30 20 46 4f 52 20 59 20 | 3d 20 31 20 54 4f 20 32 |0 FOR Y |= 1 TO 2|
|00000430| 35 30 0a 34 32 30 20 58 | 3d 59 5e 33 0a 34 33 30 |50.420 X|=Y^3.430|
|00000440| 20 50 52 49 4e 54 59 3b | 22 43 55 42 45 44 20 3d | PRINTY;|"CUBED =|
|00000450| 22 3b 58 0a 34 33 35 20 | 46 4f 52 20 55 3d 20 31 |";X.435 |FOR U= 1|
|00000460| 20 54 4f 20 31 35 30 30 | 3a 4e 45 58 54 20 55 3a | TO 1500|:NEXT U:|
|00000470| 50 52 49 4e 54 3a 50 52 | 49 4e 54 3a 50 52 49 4e |PRINT:PR|INT:PRIN|
|00000480| 54 0a 34 33 37 20 4e 45 | 58 54 20 59 0a 34 34 30 |T.437 NE|XT Y.440|
|00000490| 20 49 4e 50 55 54 22 41 | 47 41 49 4e 20 4f 52 20 | INPUT"A|GAIN OR |
|000004a0| 4d 45 4e 55 28 41 2f 4d | 29 22 3b 46 24 0a 34 34 |MENU(A/M|)";F$.44|
|000004b0| 32 20 49 46 20 46 24 3d | 22 41 22 20 54 48 45 4e |2 IF F$=|"A" THEN|
|000004c0| 20 34 30 30 0a 34 34 35 | 20 49 46 20 46 24 3d 22 | 400.445| IF F$="|
|000004d0| 4d 22 20 54 48 45 4e 20 | 39 38 0a 35 30 30 20 50 |M" THEN |98.500 P|
|000004e0| 52 49 4e 54 43 48 52 24 | 28 31 34 37 29 0a 35 30 |RINTCHR$|(147).50|
|000004f0| 31 20 50 52 49 4e 54 22 | 50 52 49 4e 54 49 4e 47 |1 PRINT"|PRINTING|
|00000500| 22 0a 35 31 30 20 4f 50 | 45 4e 33 2c 34 0a 35 32 |".510 OP|EN3,4.52|
|00000510| 30 20 43 4d 44 33 0a 35 | 33 30 20 46 4f 52 20 59 |0 CMD3.5|30 FOR Y|
|00000520| 3d 20 31 20 54 4f 20 32 | 35 30 0a 35 34 30 20 58 |= 1 TO 2|50.540 X|
|00000530| 3d 59 5e 33 0a 35 35 30 | 20 50 52 49 4e 54 59 3b |=Y^3.550| PRINTY;|
|00000540| 22 43 55 42 45 44 20 3d | 22 3b 58 0a 35 36 30 20 |"CUBED =|";X.560 |
|00000550| 4e 45 58 54 20 59 0a 35 | 36 35 20 50 52 49 4e 54 |NEXT Y.5|65 PRINT|
|00000560| 23 33 0a 35 36 38 20 43 | 4c 4f 53 45 33 0a 35 37 |#3.568 C|LOSE3.57|
|00000570| 30 20 49 4e 50 55 54 22 | 41 4e 4f 54 48 45 52 20 |0 INPUT"|ANOTHER |
|00000580| 4f 52 20 4d 45 4e 55 28 | 41 2f 4d 29 22 3b 49 24 |OR MENU(|A/M)";I$|
|00000590| 0a 35 38 30 20 49 46 20 | 49 24 3d 22 41 22 20 54 |.580 IF |I$="A" T|
|000005a0| 48 45 4e 20 35 30 30 0a | 35 39 30 20 49 46 20 49 |HEN 500.|590 IF I|
|000005b0| 24 3d 22 4d 22 20 54 48 | 45 4e 20 39 38 0a 36 30 |$="M" TH|EN 98.60|
|000005c0| 30 20 50 52 49 4e 54 43 | 48 52 24 28 31 34 37 29 |0 PRINTC|HR$(147)|
|000005d0| 0a 36 31 30 20 50 52 49 | 4e 54 22 4f 50 54 49 4f |.610 PRI|NT"OPTIO|
|000005e0| 09 00 23 31 20 53 49 4e | 47 4c 45 20 43 55 42 45 |..#1 SIN|GLE CUBE|
|000005f0| 20 52 4f 4f 54 22 3a 50 | 52 49 4e 54 3a 50 52 49 | ROOT":P|RINT:PRI|
|00000600| 4e 54 3a 50 52 49 4e 54 | 3a 50 52 49 4e 54 0a 36 |NT:PRINT|:PRINT.6|
|00000610| 32 30 20 50 52 49 4e 54 | 22 4f 50 54 49 4f 4e 20 |20 PRINT|"OPTION |
|00000620| 23 32 20 43 4f 4e 54 49 | 4e 4f 55 53 20 43 55 42 |#2 CONTI|NOUS CUB|
|00000630| 45 20 52 4f 4f 54 53 22 | 3a 50 52 49 4e 54 3a 50 |E ROOTS"|:PRINT:P|
|00000640| 52 49 4e 54 3a 50 52 49 | 4e 54 3a 50 52 49 4e 54 |RINT:PRI|NT:PRINT|
|00000650| 0a 36 33 30 20 49 4e 50 | 55 54 22 53 45 4c 45 43 |.630 INP|UT"SELEC|
|00000660| 54 28 31 2f 32 29 22 3b | 4f 0a 36 34 30 20 4f 4e |T(1/2)";|O.640 ON|
|00000670| 20 4f 20 47 4f 54 4f 20 | 36 36 30 2c 39 30 30 0a | O GOTO |660,900.|
|00000680| 36 36 30 20 50 52 49 4e | 54 43 48 52 24 28 31 34 |660 PRIN|TCHR$(14|
|00000690| 37 29 0a 36 36 35 20 49 | 4e 50 55 54 22 53 43 52 |7).665 I|NPUT"SCR|
|000006a0| 45 45 4e 20 4f 52 20 50 | 52 49 4e 54 45 52 28 53 |EEN OR P|RINTER(S|
|000006b0| 2f 50 29 22 3b 54 24 0a | 36 37 30 20 49 46 20 54 |/P)";T$.|670 IF T|
|000006c0| 24 3d 22 53 22 20 54 48 | 45 4e 20 36 39 30 0a 36 |$="S" TH|EN 690.6|
|000006d0| 38 30 20 49 46 20 54 24 | 3d 22 50 22 20 54 48 45 |80 IF T$|="P" THE|
|000006e0| 4e 20 37 34 35 0a 36 39 | 30 20 49 4e 50 55 54 22 |N 745.69|0 INPUT"|
|000006f0| 45 4e 54 45 52 20 4e 55 | 4d 42 45 52 22 3b 59 0a |ENTER NU|MBER";Y.|
|00000700| 37 30 30 20 58 3d 59 5e | 28 31 2f 33 29 0a 37 31 |700 X=Y^|(1/3).71|
|00000710| 30 20 50 52 49 4e 54 22 | 54 48 45 20 43 55 42 45 |0 PRINT"|THE CUBE|
|00000720| 20 52 4f 4f 54 20 4f 46 | 22 3b 59 3b 22 3d 22 3b | ROOT OF|";Y;"=";|
|00000730| 58 0a 37 32 30 20 49 4e | 50 55 54 22 41 4e 4f 54 |X.720 IN|PUT"ANOT|
|00000740| 48 45 52 20 4f 52 20 4d | 45 4e 55 28 41 2f 4d 29 |HER OR M|ENU(A/M)|
|00000750| 22 3b 52 24 0a 37 33 30 | 20 49 46 20 52 24 3d 22 |";R$.730| IF R$="|
|00000760| 41 22 20 54 48 45 4e 20 | 36 36 30 0a 37 34 30 20 |A" THEN |660.740 |
|00000770| 49 46 20 52 24 3d 22 4d | 22 20 54 48 45 4e 20 39 |IF R$="M|" THEN 9|
|00000780| 38 0a 37 34 35 20 50 52 | 49 4e 54 43 48 52 24 28 |8.745 PR|INTCHR$(|
|00000790| 31 34 37 29 0a 37 35 30 | 20 49 4e 50 55 54 22 45 |147).750| INPUT"E|
|000007a0| 4e 54 45 52 20 4e 55 4d | 42 45 52 22 3b 59 0a 37 |NTER NUM|BER";Y.7|
|000007b0| 36 30 20 4f 50 45 4e 33 | 2c 34 0a 37 37 30 20 43 |60 OPEN3|,4.770 C|
|000007c0| 4d 44 20 33 0a 37 38 30 | 20 58 3d 59 5e 28 31 2f |MD 3.780| X=Y^(1/|
|000007d0| 33 29 0a 37 39 30 20 50 | 52 49 4e 54 22 54 48 45 |3).790 P|RINT"THE|
|000007e0| 20 43 55 42 45 20 52 4f | 4f 54 20 4f 46 22 3b 59 | CUBE RO|OT OF";Y|
|000007f0| 3b 22 3d 22 3b 58 0a 38 | 30 30 20 50 52 49 4e 54 |;"=";X.8|00 PRINT|
|00000800| 23 33 0a 38 30 35 20 43 | 4c 4f 53 45 20 33 0a 38 |#3.805 C|LOSE 3.8|
|00000810| 31 30 20 49 4e 50 55 54 | 22 41 4e 4f 54 48 45 52 |10 INPUT|"ANOTHER|
|00000820| 20 4f 52 20 4d 45 4e 55 | 28 41 2f 4d 29 22 3b 4b | OR MENU|(A/M)";K|
|00000830| 24 0a 38 31 32 20 49 46 | 20 4b 24 3d 22 41 22 20 |$.812 IF| K$="A" |
|00000840| 54 48 45 4e 20 37 34 35 | 0a 38 31 35 20 49 46 20 |THEN 745|.815 IF |
|00000850| 4b 24 3d 22 4d 22 20 54 | 48 45 4e 20 09 0a 39 30 |K$="M" T|HEN ..90|
|00000860| 30 20 50 52 49 4e 54 43 | 48 52 24 28 31 34 37 29 |0 PRINTC|HR$(147)|
|00000870| 3a 50 4f 4b 45 20 35 33 | 32 38 30 2c 30 3a 50 4f |:POKE 53|280,0:PO|
|00000880| 4b 45 20 35 33 32 38 31 | 2c 32 0a 39 31 30 20 49 |KE 53281|,2.910 I|
|00000890| 4e 50 55 54 22 53 43 52 | 45 45 4e 20 4f 52 20 50 |NPUT"SCR|EEN OR P|
|000008a0| 52 49 4e 54 45 52 28 53 | 2f 50 29 22 3b 45 24 0a |RINTER(S|/P)";E$.|
|000008b0| 39 31 32 20 49 46 20 45 | 24 3d 22 53 22 20 54 48 |912 IF E|$="S" TH|
|000008c0| 45 4e 20 39 32 30 0a 39 | 31 35 20 49 46 20 45 24 |EN 920.9|15 IF E$|
|000008d0| 3d 22 50 22 20 54 48 45 | 4e 20 31 30 30 30 0a 39 |="P" THE|N 1000.9|
|000008e0| 32 30 20 50 52 49 4e 54 | 43 48 52 24 28 31 34 37 |20 PRINT|CHR$(147|
|000008f0| 29 0a 39 32 35 20 46 4f | 52 20 59 3d 20 31 20 54 |).925 FO|R Y= 1 T|
|00000900| 4f 20 32 35 30 0a 39 33 | 30 20 58 3d 59 5e 28 31 |O 250.93|0 X=Y^(1|
|00000910| 2f 33 29 0a 39 34 30 20 | 50 52 49 4e 54 22 54 48 |/3).940 |PRINT"TH|
|00000920| 45 20 43 55 42 45 20 52 | 4f 4f 54 20 4f 46 22 3b |E CUBE R|OOT OF";|
|00000930| 59 3b 22 3d 22 3b 58 0a | 39 35 30 20 46 4f 52 20 |Y;"=";X.|950 FOR |
|00000940| 54 3d 31 20 54 4f 20 31 | 35 30 30 3a 4e 45 58 54 |T=1 TO 1|500:NEXT|
|00000950| 20 54 3a 50 52 49 4e 54 | 3a 50 52 49 4e 54 3a 50 | T:PRINT|:PRINT:P|
|00000960| 52 49 4e 54 3a 50 52 49 | 4e 54 0a 39 36 30 20 4e |RINT:PRI|NT.960 N|
|00000970| 45 58 54 20 59 0a 39 37 | 30 20 49 4e 50 55 54 22 |EXT Y.97|0 INPUT"|
|00000980| 41 47 41 49 4e 20 4f 52 | 20 4d 45 4e 55 28 41 2f |AGAIN OR| MENU(A/|
|00000990| 4d 29 22 3b 48 24 0a 39 | 38 30 20 49 46 20 48 24 |M)";H$.9|80 IF H$|
|000009a0| 3d 22 41 22 20 54 48 45 | 4e 20 39 32 30 0a 39 39 |="A" THE|N 920.99|
|000009b0| 30 20 49 46 20 48 24 3d | 22 4d 22 20 54 48 45 4e |0 IF H$=|"M" THEN|
|000009c0| 20 39 38 0a 31 30 30 30 | 20 50 52 49 4e 54 43 48 | 98.1000| PRINTCH|
|000009d0| 52 24 28 31 34 37 29 0a | 31 30 30 35 20 50 52 49 |R$(147).|1005 PRI|
|000009e0| 4e 54 22 50 52 49 4e 54 | 49 4e 47 22 0a 31 30 31 |NT"PRINT|ING".101|
|000009f0| 30 20 4f 50 45 4e 33 2c | 34 0a 31 30 32 30 20 43 |0 OPEN3,|4.1020 C|
|00000a00| 4d 44 20 33 0a 31 30 33 | 30 20 46 4f 52 20 59 3d |MD 3.103|0 FOR Y=|
|00000a10| 20 31 20 54 4f 20 32 35 | 30 0a 31 30 34 30 20 58 | 1 TO 25|0.1040 X|
|00000a20| 3d 59 5e 28 31 2f 33 29 | 0a 31 30 35 30 20 50 52 |=Y^(1/3)|.1050 PR|
|00000a30| 49 4e 54 22 54 48 45 20 | 43 55 42 45 20 52 4f 4f |INT"THE |CUBE ROO|
|00000a40| 54 20 4f 46 22 3b 59 3b | 22 3d 22 3b 58 0a 31 30 |T OF";Y;|"=";X.10|
|00000a50| 36 30 20 4e 45 58 54 20 | 59 0a 31 30 37 30 20 50 |60 NEXT |Y.1070 P|
|00000a60| 52 49 4e 54 23 33 0a 31 | 30 38 30 20 43 4c 4f 53 |RINT#3.1|080 CLOS|
|00000a70| 45 33 0a 31 30 39 30 20 | 49 4e 50 55 54 22 41 47 |E3.1090 |INPUT"AG|
|00000a80| 41 49 4e 20 4f 52 20 4d | 45 4e 55 28 41 2f 4d 29 |AIN OR M|ENU(A/M)|
|00000a90| 22 3b 53 24 0a 31 30 39 | 32 20 49 46 20 53 24 3d |";S$.109|2 IF S$=|
|00000aa0| 22 41 22 20 54 48 45 4e | 20 31 30 30 30 0a 31 30 |"A" THEN| 1000.10|
|00000ab0| 39 35 20 49 46 20 53 24 | 3d 22 4d 22 20 54 48 45 |95 IF S$|="M" THE|
|00000ac0| 4e 20 39 38 0a 32 30 30 | 30 20 45 4e 44 0a 36 30 |N 98.200|0 END.60|
|00000ad0| 30 30 20 50 52 49 4e 54 | 43 48 52 24 28 31 34 37 |00 PRINT|CHR$(147|
|00000ae0| 29 3a 50 4f 4b 45 35 33 | 32 38 30 2c 36 3a 50 4f |):POKE53|280,6:PO|
|00000af0| 4b 45 35 33 09 0a 36 30 | 30 35 20 50 52 49 4e 54 |KE53..60|05 PRINT|
|00000b00| 3a 50 52 49 4e 54 3a 50 | 52 49 4e 54 3a 50 52 49 |:PRINT:P|RINT:PRI|
|00000b10| 4e 54 0a 36 30 31 30 20 | 50 52 49 4e 54 54 41 42 |NT.6010 |PRINTTAB|
|00000b20| 28 31 32 29 43 48 52 24 | 28 31 34 34 29 22 2a 2a |(12)CHR$|(144)"**|
|00000b30| 2a 20 46 4f 47 47 45 52 | 20 2a 2a 2a 22 0a 36 30 |* FOGGER| ***".60|
|00000b40| 32 30 20 46 4f 52 20 54 | 3d 20 31 20 54 4f 20 33 |20 FOR T|= 1 TO 3|
|00000b50| 30 30 30 3a 4e 45 58 54 | 20 54 3a 50 52 49 4e 54 |000:NEXT| T:PRINT|
|00000b60| 3a 50 52 49 4e 54 3a 50 | 52 49 4e 54 3a 50 52 49 |:PRINT:P|RINT:PRI|
|00000b70| 4e 54 0a 36 30 33 30 20 | 50 52 49 4e 54 54 41 42 |NT.6030 |PRINTTAB|
|00000b80| 28 31 32 29 43 48 52 24 | 28 31 34 34 29 22 2a 2a |(12)CHR$|(144)"**|
|00000b90| 2a 20 50 52 45 53 45 4e | 54 53 20 2a 2a 2a 22 0a |* PRESEN|TS ***".|
|00000ba0| 36 30 34 30 20 46 4f 52 | 20 46 3d 31 20 54 4f 20 |6040 FOR| F=1 TO |
|00000bb0| 33 30 30 30 3a 4e 45 58 | 54 20 46 0a 36 30 34 35 |3000:NEX|T F.6045|
|00000bc0| 20 50 52 49 4e 54 43 48 | 52 24 28 31 34 37 29 3a | PRINTCH|R$(147):|
|00000bd0| 50 52 49 4e 54 3a 50 52 | 49 4e 54 3a 50 52 49 4e |PRINT:PR|INT:PRIN|
|00000be0| 54 3a 50 52 49 4e 54 3a | 50 52 49 4e 54 3a 50 52 |T:PRINT:|PRINT:PR|
|00000bf0| 49 4e 54 0a 36 30 35 30 | 20 50 52 49 4e 54 54 41 |INT.6050| PRINTTA|
|00000c00| 42 28 31 30 29 43 48 52 | 24 28 31 34 34 29 22 43 |B(10)CHR|$(144)"C|
|00000c10| 55 42 45 53 20 41 4e 44 | 20 43 55 42 45 20 52 4f |UBES AND| CUBE RO|
|00000c20| 4f 54 53 22 0a 36 30 35 | 35 20 46 4f 52 20 55 3d |OTS".605|5 FOR U=|
|00000c30| 20 31 20 54 4f 20 33 30 | 30 30 3a 4e 45 58 54 20 | 1 TO 30|00:NEXT |
|00000c40| 55 0a 36 30 36 30 20 52 | 45 54 55 52 4e 0a |U.6060 R|ETURN. |
+--------+-------------------------+-------------------------+--------+--------+
