home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / HANG-MATH / c64.bas
Unknown  |  2019-04-13  |  2.7 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.

ConfidenceProgramDetectionMatch TypeSupport
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: '5 POKE53280,2' default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 35 20 50 4f 4b 45 35 33 | 32 38 30 2c 32 3a 50 4f |5 POKE53|280,2:PO|
|00000010| 4b 45 35 33 32 38 31 2c | 32 0a 37 20 50 52 49 4e |KE53281,|2.7 PRIN|
|00000020| 54 22 93 05 20 20 20 20 | a7 cc ba a5 20 ce cd 20 |T".. |.... .. |
|00000030| b6 cd 20 b5 20 ce b7 20 | 20 9e b6 cd ce b5 20 ce |.. . .. | ..... .|
|00000040| cd 20 d0 cf 20 a7 cc ba | a5 00 0a 38 20 50 52 49 |. .. ...|...8 PRI|
|00000050| 4e 54 22 05 20 20 20 20 | a7 cf d0 a5 20 cf d0 20 |NT". |.... .. |
|00000060| b6 20 cd b5 20 cd d0 20 | 20 9e b6 20 20 b5 20 cf |. .. .. | .. . .|
|00000070| d0 20 aa a5 20 a7 cf d0 | a5 00 0a 39 20 50 52 49 |. .. ...|...9 PRI|
|00000080| 4e 54 22 05 20 20 20 20 | 20 20 20 20 20 20 20 20 |NT". | |
|00000090| 20 20 20 20 20 20 b7 00 | 0a 31 30 20 50 52 49 4e | ..|.10 PRIN|
|000000a0| 54 2c 22 9e 11 11 11 11 | 57 52 49 54 54 45 4e 20 |T,".....|WRITTEN |
|000000b0| 46 4f 52 20 54 48 45 20 | 50 45 54 00 0a 31 32 20 |FOR THE |PET..12 |
|000000c0| 50 52 49 4e 54 2c 22 11 | 20 20 20 20 20 20 20 20 |PRINT,".| |
|000000d0| 42 59 00 0a 31 34 20 50 | 52 49 4e 54 2c 22 05 11 |BY..14 P|RINT,"..|
|000000e0| 20 20 20 20 20 54 4f 4d | 20 54 55 4d 45 59 00 0a | TOM| TUMEY..|
|000000f0| 32 30 20 50 52 49 4e 54 | 22 11 11 11 11 9e 20 20 |20 PRINT|"..... |
|00000100| 20 20 20 4d 4f 44 49 46 | 49 45 44 20 41 4e 44 20 | MODIF|IED AND |
|00000110| 41 44 41 50 54 45 44 20 | 46 4f 52 20 54 48 45 20 |ADAPTED |FOR THE |
|00000120| 36 34 00 0a 32 32 20 50 | 52 49 4e 54 2c 22 11 20 |64..22 P|RINT,". |
|00000130| 20 20 20 20 20 20 20 42 | 59 00 0a 32 34 20 50 52 | B|Y..24 PR|
|00000140| 49 4e 54 2c 22 05 11 20 | 20 53 54 45 56 45 4e 20 |INT,".. | STEVEN |
|00000150| 44 41 52 4e 4f 4c 44 00 | 0a 32 36 20 50 52 49 4e |DARNOLD.|.26 PRIN|
|00000160| 54 2c 22 11 46 55 52 54 | 48 45 52 20 4d 4f 44 49 |T,".FURT|HER MODI|
|00000170| 46 49 45 44 20 42 59 00 | 0a 32 38 20 50 52 49 4e |FIED BY.|.28 PRIN|
|00000180| 54 2c 22 11 20 20 53 4d | 41 44 41 20 53 4f 46 54 |T,". SM|ADA SOFT|
|00000190| 57 41 52 45 22 3b 0a 39 | 30 20 46 4f 52 49 3d 31 |WARE";.9|0 FORI=1|
|000001a0| 54 4f 32 30 30 30 3a 4e | 45 58 54 0a 31 30 30 20 |TO2000:N|EXT.100 |
|000001b0| 50 52 49 4e 54 43 48 52 | 24 28 31 34 32 29 3b 3a |PRINTCHR|$(142);:|
|000001c0| 47 4f 54 4f 33 30 30 30 | 30 0a 31 33 32 20 50 52 |GOTO3000|0.132 PR|
|000001d0| 49 4e 54 22 13 22 3a 4f | 4e 57 47 4f 53 55 42 32 |INT".":O|NWGOSUB2|
|000001e0| 31 30 2c 32 39 30 2c 32 | 39 37 2c 33 30 30 2c 33 |10,290,2|97,300,3|
|000001f0| 31 30 2c 33 31 30 2c 33 | 31 30 2c 33 34 30 2c 33 |10,310,3|10,340,3|
|00000200| 35 30 2c 33 35 30 2c 33 | 37 35 0a 32 30 30 20 52 |50,350,3|75.200 R|
|00000210| 45 54 55 52 4e 0a 32 31 | 30 20 50 52 49 4e 54 54 |ETURN.21|0 PRINTT|
|00000220| 41 42 28 32 35 29 22 9e | a2 a2 a2 a2 a2 a2 a2 a2 |AB(25)".|........|
|00000230| 22 0a 32 32 30 20 50 52 | 49 4e 54 54 41 42 28 32 |".220 PR|INTTAB(2|
|00000240| 35 29 22 a1 20 20 20 20 | 20 05 20 dd 22 0a 32 33 |5)". | . .".23|
|00000250| 30 20 50 52 49 4e 54 54 | 41 42 28 32 35 29 22 9e |0 PRINTT|AB(25)".|
|00000260| a1 20 20 20 20 05 20 20 | dd 22 0a 32 34 30 20 50 |. . |.".240 P|
|00000270| 52 49 4e 54 54 41 42 28 | 32 35 29 22 9e a1 20 20 |RINTTAB(|25)".. |
|00000280| 20 20 05 20 20 dd 22 0a | 32 35 30 20 50 52 49 4e | . .".|250 PRIN|
|00000290| 54 54 41 42 28 32 35 29 | 22 9e a1 20 20 20 20 05 |TTAB(25)|".. .|
|000002a0| 20 20 4f 22 0a 32 36 30 | 20 50 52 49 4e 54 54 41 | O".260| PRINTTA|
|000002b0| 42 28 32 35 29 22 9e a1 | 22 0a 32 37 30 20 50 52 |B(25)"..|".270 PR|
|000002c0| 49 4e 54 54 41 42 28 32 | 35 29 22 a1 22 0a 32 38 |INTTAB(2|5)".".28|
|000002d0| 30 20 50 52 49 4e 54 54 | 41 42 28 32 35 29 22 a1 |0 PRINTT|AB(25)".|
|000002e0| 22 0a 32 38 35 20 52 45 | 54 55 52 4e 0a 32 39 30 |".285 RE|TURN.290|
|000002f0| 20 50 52 49 4e 54 22 11 | 11 11 11 11 11 11 22 3a | PRINT".|......":|
|00000300| 50 52 49 4e 54 54 41 42 | 28 32 35 29 22 9e 12 20 |PRINTTAB|(25)".. |
|00000310| 92 b8 b8 b8 b8 a3 a3 a3 | a3 22 0a 32 39 32 20 50 |........|.".292 P|
|00000320| 52 49 4e 54 54 41 42 28 | 32 35 29 22 a1 22 0a 32 |RINTTAB(|25)".".2|
|00000330| 39 33 20 50 52 49 4e 54 | 54 41 42 28 32 35 29 22 |93 PRINT|TAB(25)"|
|00000340| a1 22 0a 32 39 34 20 50 | 52 49 4e 54 54 41 42 28 |.".294 P|RINTTAB(|
|00000350| 32 35 29 22 a1 22 0a 32 | 39 35 20 50 52 49 4e 54 |25)".".2|95 PRINT|
|00000360| 54 41 42 28 32 35 29 22 | a1 22 0a 32 39 36 20 50 |TAB(25)"|.".296 P|
|00000370| 52 49 4e 54 54 41 42 28 | 32 34 29 22 12 a9 92 a1 |RINTTAB(|24)"....|
|00000380| 22 3a 52 45 54 55 52 4e | 0a 32 39 37 20 50 52 49 |":RETURN|.297 PRI|
|00000390| 4e 54 22 9e 11 11 11 11 | 11 11 11 11 11 11 11 11 |NT".....|........|
|000003a0| 11 11 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000003b0| 20 20 20 20 20 20 20 12 | 20 20 20 20 48 41 4e 47 | .| HANG|
|000003c0| 2d 4d 41 54 48 20 20 20 | 20 92 22 3a 52 45 54 55 |-MATH | .":RETU|
|000003d0| 52 4e 0a 32 39 39 20 2d | 0a 33 30 30 20 50 52 49 |RN.299 -|.300 PRI|
|000003e0| 4e 54 22 9e 11 11 11 22 | 3a 50 52 49 4e 54 53 50 |NT"...."|:PRINTSP|
|000003f0| 43 28 32 39 29 22 20 20 | 20 d1 22 0a 33 30 35 20 |C(29)" | .".305 |
|00000400| 49 46 57 3c 3e 31 31 54 | 48 45 4e 52 45 54 55 52 |IFW<>11T|HENRETUR|
|00000410| 4e 0a 33 31 30 20 50 52 | 49 4e 54 22 9e 11 11 11 |N.310 PR|INT"....|
|00000420| 11 22 3a 50 52 49 4e 54 | 53 50 43 28 32 39 29 22 |.":PRINT|SPC(29)"|
|00000430| 20 20 ce 22 3b 0a 33 31 | 35 20 49 46 57 3d 35 54 | .";.31|5 IFW=5T|
|00000440| 48 45 4e 52 45 54 55 52 | 4e 0a 33 32 30 20 50 52 |HENRETUR|N.320 PR|
|00000450| 49 4e 54 22 9e 12 20 92 | 22 3b 0a 33 32 35 20 49 |INT".. .|";.325 I|
|00000460| 46 57 3d 36 54 48 45 4e | 52 45 54 55 52 4e 0a 33 |FW=6THEN|RETURN.3|
|00000470| 33 30 20 50 52 49 4e 54 | 22 9e cd 22 0a 33 33 35 |30 PRINT|"..".335|
|00000480| 20 49 46 57 3c 3e 31 31 | 54 48 45 4e 52 45 54 55 | IFW<>11|THENRETU|
|00000490| 52 4e 0a 33 34 30 20 50 | 52 49 4e 54 22 9e 11 11 |RN.340 P|RINT"...|
|000004a0| 11 11 11 22 3a 50 52 49 | 4e 54 53 50 43 28 32 39 |...":PRI|NTSPC(29|
|000004b0| 29 22 20 20 20 12 20 92 | 20 22 0a 33 34 35 20 49 |)" . .| ".345 I|
|000004c0| 46 57 3c 3e 31 31 54 48 | 45 4e 52 45 54 55 52 4e |FW<>11TH|ENRETURN|
|000004d0| 0a 33 35 30 20 50 52 49 | 4e 54 22 9e 11 11 11 11 |.350 PRI|NT".....|
|000004e0| 11 11 22 3a 50 52 49 4e | 54 53 50 43 28 32 39 29 |..":PRIN|TSPC(29)|
|000004f0| 22 20 20 ce 20 22 3b 0a | 33 35 35 20 49 46 57 3d |" . ";.|355 IFW=|
|00000500| 39 54 48 45 4e 52 45 54 | 55 52 4e 0a 33 36 30 20 |9THENRET|URN.360 |
|00000510| 50 52 49 4e 54 22 9e cd | 22 0a 33 36 35 20 49 46 |PRINT"..|".365 IF|
|00000520| 57 3c 3e 31 31 54 48 45 | 4e 52 45 54 55 52 4e 0a |W<>11THE|NRETURN.|
|00000530| 33 37 30 20 45 4e 44 0a | 33 37 35 20 50 52 49 4e |370 END.|375 PRIN|
|00000540| 54 22 11 11 11 11 22 3b | 0a 33 38 30 20 50 52 49 |T"....";|.380 PRI|
|00000550| 4e 54 54 41 42 28 33 30 | 29 22 05 20 20 dd 20 20 |NTTAB(30|)". . |
|00000560| 22 0a 33 39 30 20 50 52 | 49 4e 54 54 41 42 28 33 |".390 PR|INTTAB(3|
|00000570| 30 29 22 20 20 dd 20 20 | 22 0a 33 39 35 20 50 52 |0)" . |".395 PR|
|00000580| 49 4e 54 54 41 42 28 33 | 30 29 22 9e 20 20 d1 20 |INTTAB(3|0)". . |
|00000590| 20 22 0a 34 30 30 20 50 | 52 49 4e 54 54 41 42 28 | ".400 P|RINTTAB(|
|000005a0| 33 30 29 22 20 ce 12 20 | 92 cd 20 22 0a 34 30 35 |30)" .. |.. ".405|
|000005b0| 20 50 52 49 4e 54 54 41 | 42 28 33 30 29 22 20 20 | PRINTTA|B(30)" |
|000005c0| 12 20 92 20 20 22 0a 34 | 31 30 20 50 52 49 4e 54 |. . ".4|10 PRINT|
|000005d0| 54 41 42 28 33 30 29 22 | 20 ce 20 cd 20 22 0a 34 |TAB(30)"| . . ".4|
|000005e0| 32 30 20 50 52 49 4e 54 | 22 09 00 22 3a 45 4e 44 |20 PRINT|"..":END|
|000005f0| 0a 33 30 30 30 30 20 47 | 4f 54 4f 33 30 30 32 30 |.30000 G|OTO30020|
|00000600| 0a 33 30 30 30 31 20 50 | 52 49 4e 54 22 93 11 00 |.30001 P|RINT"...|
|00000610| 0a 33 30 30 30 32 20 50 | 52 49 4e 54 22 11 11 11 |.30002 P|RINT"...|
|00000620| 11 11 9e 53 4f 4c 56 45 | 20 54 48 45 20 4d 55 4c |...SOLVE| THE MUL|
|00000630| 54 49 50 4c 49 43 41 54 | 49 4f 4e 20 50 52 4f 42 |TIPLICAT|ION PROB|
|00000640| 4c 45 4d 53 00 0a 33 30 | 30 30 33 20 50 52 49 4e |LEMS..30|003 PRIN|
|00000650| 54 22 11 42 59 20 47 55 | 45 53 53 49 4e 47 20 54 |T".BY GU|ESSING T|
|00000660| 48 45 20 44 49 47 49 54 | 53 20 57 48 49 43 48 20 |HE DIGIT|S WHICH |
|00000670| 47 4f 20 57 48 45 52 45 | 00 0a 33 30 30 30 34 20 |GO WHERE|..30004 |
|00000680| 50 52 49 4e 54 22 11 54 | 48 45 20 41 53 54 45 52 |PRINT".T|HE ASTER|
|00000690| 49 53 4b 53 20 41 52 45 | 2e 22 3a 52 45 54 55 52 |ISKS ARE|.":RETUR|
|000006a0| 4e 0a 33 30 30 32 30 20 | 44 49 4d 20 52 24 28 38 |N.30020 |DIM R$(8|
|000006b0| 29 2c 46 28 39 2c 35 29 | 2c 41 28 35 2c 35 29 2c |),F(9,5)|,A(5,5),|
|000006c0| 50 24 28 35 2c 35 29 2c | 4e 28 35 29 3a 46 4f 52 |P$(5,5),|N(5):FOR|
|000006d0| 20 49 3d 31 54 4f 38 3a | 52 45 41 44 52 24 28 49 | I=1TO8:|READR$(I|
|000006e0| 29 3a 4e 45 58 54 0a 33 | 30 30 33 30 20 44 41 54 |):NEXT.3|0030 DAT|
|000006f0| 41 20 45 58 43 45 4c 45 | 4e 54 2c 56 45 52 59 20 |A EXCELE|NT,VERY |
|00000700| 47 4f 4f 44 2c 47 4f 4f | 44 2c 41 42 4f 56 45 20 |GOOD,GOO|D,ABOVE |
|00000710| 41 56 45 52 41 47 45 2c | 41 42 4f 55 54 20 41 56 |AVERAGE,|ABOUT AV|
|00000720| 45 52 41 47 45 2c 42 45 | 4c 4f 57 20 41 56 45 52 |ERAGE,BE|LOW AVER|
|00000730| 41 47 45 0a 33 30 30 34 | 30 20 44 41 54 41 20 46 |AGE.3004|0 DATA F|
|00000740| 41 49 52 2c 50 4f 4f 52 | 0a 33 30 30 36 30 20 51 |AIR,POOR|.30060 Q|
|00000750| 3d 52 4e 44 28 32 29 0a | 33 30 30 37 30 20 47 3d |=RND(2).|30070 G=|
|00000760| 30 3a 54 3d 30 0a 33 30 | 30 38 30 20 52 45 4d 0a |0:T=0.30|080 REM.|
|00000770| 33 30 30 39 30 20 46 4f | 52 20 49 3d 31 54 4f 35 |30090 FO|R I=1TO5|
|00000780| 3a 46 4f 52 4a 3d 31 54 | 4f 35 3a 50 24 28 49 2c |:FORJ=1T|O5:P$(I,|
|00000790| 4a 29 3d 22 9e 20 2a 05 | 22 3a 41 28 49 2c 4a 29 |J)=". *.|":A(I,J)|
|000007a0| 3d 39 39 39 3a 4e 45 58 | 54 4a 2c 49 0a 33 30 31 |=999:NEX|TJ,I.301|
|000007b0| 30 30 20 46 4f 52 20 49 | 3d 30 54 4f 39 3a 46 4f |00 FOR I|=0TO9:FO|
|000007c0| 52 20 4a 3d 31 54 4f 35 | 3a 46 28 49 2c 4a 29 3d |R J=1TO5|:F(I,J)=|
|000007d0| 30 3a 4e 45 58 54 4a 2c | 49 3a 41 28 31 2c 31 29 |0:NEXTJ,|I:A(1,1)|
|000007e0| 3d 49 4e 54 28 31 30 2a | 52 4e 44 28 31 29 29 0a |=INT(10*|RND(1)).|
|000007f0| 33 30 31 31 30 20 41 28 | 32 2c 31 29 3d 49 4e 54 |30110 A(|2,1)=INT|
|00000800| 28 31 30 2a 52 4e 44 28 | 31 29 29 3a 41 28 33 2c |(10*RND(|1)):A(3,|
|00000810| 31 29 3d 49 4e 54 28 39 | 2a 52 4e 44 28 31 29 29 |1)=INT(9|*RND(1))|
|00000820| 2b 31 3a 41 28 31 2c 32 | 29 3d 49 4e 54 28 31 30 |+1:A(1,2|)=INT(10|
|00000830| 2a 52 4e 44 28 31 29 29 | 0a 33 30 31 32 30 20 41 |*RND(1))|.30120 A|
|00000840| 28 32 2c 32 29 3d 49 4e | 54 28 39 2a 52 4e 44 28 |(2,2)=IN|T(9*RND(|
|00000850| 31 29 29 2b 31 3a 4e 28 | 31 29 3d 31 30 30 2a 09 |1))+1:N(|1)=100*.|
|00000860| 0a 33 30 31 33 30 20 4e | 28 32 29 3d 31 30 2a 41 |.30130 N|(2)=10*A|
|00000870| 28 32 2c 32 29 2b 41 28 | 31 2c 32 29 3a 4e 28 33 |(2,2)+A(|1,2):N(3|
|00000880| 29 3d 41 28 31 2c 32 29 | 2a 4e 28 31 29 3a 4e 28 |)=A(1,2)|*N(1):N(|
|00000890| 34 29 3d 41 28 32 2c 32 | 29 2a 4e 28 31 29 2a 31 |4)=A(2,2|)*N(1)*1|
|000008a0| 30 0a 33 30 31 34 30 20 | 4e 28 35 29 3d 4e 28 31 |0.30140 |N(5)=N(1|
|000008b0| 29 2a 4e 28 32 29 3a 46 | 4f 52 20 49 3d 35 20 54 |)*N(2):F|OR I=5 T|
|000008c0| 4f 20 31 20 53 54 45 50 | 20 2d 31 3a 0a 33 30 31 |O 1 STEP| -1:.301|
|000008d0| 35 30 20 4d 3d 31 30 5e | 28 49 2d 31 29 3a 46 4f |50 M=10^|(I-1):FO|
|000008e0| 52 20 4a 3d 33 54 4f 35 | 0a 33 30 31 36 30 20 51 |R J=3TO5|.30160 Q|
|000008f0| 3d 4e 28 4a 29 2f 4d 3a | 41 28 49 2c 4a 29 3d 49 |=N(J)/M:|A(I,J)=I|
|00000900| 4e 54 28 51 2b 2e 30 30 | 31 29 3a 4e 45 58 54 20 |NT(Q+.00|1):NEXT |
|00000910| 4a 0a 33 30 31 37 30 20 | 46 4f 52 4a 3d 33 54 4f |J.30170 |FORJ=3TO|
|00000920| 35 3a 4e 28 4a 29 3d 4e | 28 4a 29 2d 41 28 49 2c |5:N(J)=N|(J)-A(I,|
|00000930| 4a 29 2a 4d 3a 4e 28 4a | 29 3d 49 4e 54 28 4e 28 |J)*M:N(J|)=INT(N(|
|00000940| 4a 29 2b 2e 39 29 3a 4e | 45 58 54 4a 3a 4e 45 58 |J)+.9):N|EXTJ:NEX|
|00000950| 54 49 0a 33 30 31 37 35 | 20 47 4f 53 55 42 33 30 |TI.30175| GOSUB30|
|00000960| 30 30 31 3a 50 52 49 4e | 54 22 05 11 11 11 11 11 |001:PRIN|T"......|
|00000970| 11 11 11 11 11 20 20 20 | 20 20 50 52 45 53 53 20 |..... | PRESS |
|00000980| 12 53 48 49 46 54 92 20 | 54 4f 20 42 45 47 49 4e |.SHIFT. |TO BEGIN|
|00000990| 2e 00 0a 33 30 31 38 30 | 20 41 28 31 2c 34 29 3d |...30180| A(1,4)=|
|000009a0| 39 39 39 3a 41 28 35 2c | 33 29 3d 39 39 39 3a 42 |999:A(5,|3)=999:B|
|000009b0| 24 3d 22 20 20 22 3a 57 | 3d 30 3a 4e 31 3d 30 3a |$=" ":W|=0:N1=0:|
|000009c0| 4e 35 3d 37 3a 57 41 49 | 54 36 35 33 2c 31 3a 50 |N5=7:WAI|T653,1:P|
|000009d0| 52 49 4e 54 22 93 22 3a | 47 4f 54 4f 33 30 33 33 |RINT".":|GOTO3033|
|000009e0| 30 0a 33 30 31 39 30 20 | 4e 31 3d 4e 31 2b 31 3a |0.30190 |N1=N1+1:|
|000009f0| 47 4f 54 4f 33 30 32 32 | 30 0a 33 30 32 30 30 20 |GOTO3022|0.30200 |
|00000a00| 50 52 49 4e 54 22 59 4f | 55 52 20 49 4e 50 55 54 |PRINT"YO|UR INPUT|
|00000a10| 20 49 53 20 4e 4f 20 47 | 4f 4f 44 2c 54 52 59 20 | IS NO G|OOD,TRY |
|00000a20| 41 47 41 49 4e 22 3a 46 | 4f 52 42 3d 31 54 4f 31 |AGAIN":F|ORB=1TO1|
|00000a30| 30 30 30 3a 4e 45 58 54 | 42 3a 50 52 49 4e 54 22 |000:NEXT|B:PRINT"|
|00000a40| 93 22 3a 50 52 49 4e 54 | 3a 50 52 49 4e 54 0a 33 |.":PRINT|:PRINT.3|
|00000a50| 30 32 31 30 20 52 45 4d | 0a 33 30 32 32 30 20 50 |0210 REM|.30220 P|
|00000a60| 52 49 4e 54 22 13 11 11 | 11 11 11 11 11 11 11 11 |RINT"...|........|
|00000a70| 11 11 11 11 11 11 11 22 | 3a 46 4f 52 49 3d 31 54 |......."|:FORI=1T|
|00000a80| 4f 35 3a 50 52 49 4e 54 | 22 20 20 20 20 20 20 20 |O5:PRINT|" |
|00000a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000aa0| 20 20 22 3a 4e 45 58 54 | 3a 50 52 49 4e 54 22 91 | ":NEXT|:PRINT".|
|00000ab0| 91 91 91 91 91 22 0a | |.....". | |
+--------+-------------------------+-------------------------+--------+--------+