home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / NAME-NOTES / c64.bas
Unknown  |  2019-04-13  |  2.5 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: '100 DIM LOW' default (weak)
100% detectItEasy Format: plain text[LF] default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 30 20 44 49 4d 20 | 4c 4f 57 25 28 32 35 29 |100 DIM |LOW%(25)|
|00000010| 2c 48 49 25 28 32 35 29 | 0a 31 31 30 20 50 52 49 |,HI%(25)|.110 PRI|
|00000020| 4e 54 22 90 93 11 11 11 | 11 11 11 11 11 11 11 11 |NT".....|........|
|00000030| 11 11 1d 1d 1d 1d 1d 1d | 1d 1d 1d 1d 1d 1d 4a 55 |........|......JU|
|00000040| 53 54 20 41 20 53 45 43 | 4f 4e 44 2e 2e 2e 22 0a |ST A SEC|OND...".|
|00000050| 31 32 30 20 50 4f 4b 45 | 35 33 32 38 31 2c 31 32 |120 POKE|53281,12|
|00000060| 3a 50 4f 4b 45 35 33 32 | 38 30 2c 31 32 0a 31 33 |:POKE532|80,12.13|
|00000070| 30 20 52 45 4d 20 49 4e | 49 54 49 49 41 4c 49 5a |0 REM IN|ITIIALIZ|
|00000080| 45 20 52 4f 55 54 49 4e | 45 0a 31 34 30 20 4e 4f |E ROUTIN|E.140 NO|
|00000090| 24 20 3d 20 22 45 46 47 | 41 42 43 44 45 46 47 41 |$ = "EFG|ABCDEFGA|
|000000a0| 42 43 44 45 46 47 41 42 | 43 44 45 46 47 41 22 0a |BCDEFGAB|CDEFGA".|
|000000b0| 31 35 30 20 46 4f 52 20 | 54 3d 20 31 20 54 4f 20 |150 FOR |T= 1 TO |
|000000c0| 32 35 3a 52 45 41 44 20 | 4c 4f 57 25 28 54 29 3a |25:READ |LOW%(T):|
|000000d0| 4e 45 58 54 3a 46 4f 52 | 20 54 3d 31 54 4f 32 35 |NEXT:FOR| T=1TO25|
|000000e0| 3a 52 45 41 44 20 48 49 | 25 28 54 29 3a 4e 45 58 |:READ HI|%(T):NEX|
|000000f0| 54 0a 31 36 30 20 46 4f | 52 20 54 3d 30 20 54 4f |T.160 FO|R T=0 TO|
|00000100| 20 36 33 3a 52 45 41 44 | 44 3a 50 4f 4b 45 37 30 | 63:READ|D:POKE70|
|00000110| 34 2b 54 2c 44 3a 4e 45 | 58 54 3a 50 4f 4b 45 32 |4+T,D:NE|XT:POKE2|
|00000120| 30 34 30 2c 31 31 0a 31 | 37 30 20 46 4f 52 20 54 |040,11.1|70 FOR T|
|00000130| 3d 20 38 33 32 54 4f 31 | 30 32 30 3a 52 45 41 44 |= 832TO1|020:READ|
|00000140| 44 3a 50 4f 4b 45 54 2c | 44 3a 4e 45 58 54 3a 50 |D:POKET,|D:NEXT:P|
|00000150| 4f 4b 45 32 30 34 31 2c | 31 33 3a 50 4f 4b 45 32 |OKE2041,|13:POKE2|
|00000160| 30 34 32 2c 31 34 0a 31 | 38 30 20 50 4f 4b 45 32 |042,14.1|80 POKE2|
|00000170| 30 34 33 2c 31 35 0a 31 | 39 30 20 56 3d 20 35 33 |043,15.1|90 V= 53|
|00000180| 32 34 38 3a 50 4f 4b 45 | 56 2b 32 31 2c 30 0a 32 |248:POKE|V+21,0.2|
|00000190| 30 30 20 50 4f 4b 45 56 | 2c 32 35 35 3a 50 4f 4b |00 POKEV|,255:POK|
|000001a0| 45 56 2b 31 36 2c 30 3a | 50 4f 4b 45 56 2b 33 39 |EV+16,0:|POKEV+39|
|000001b0| 2c 30 3a 50 4f 4b 45 35 | 33 32 38 30 2c 31 32 3a |,0:POKE5|3280,12:|
|000001c0| 50 4f 4b 45 35 33 32 38 | 31 2c 31 32 0a 32 31 30 |POKE5328|1,12.210|
|000001d0| 20 50 4f 4b 45 56 2b 32 | 2c 39 30 3a 50 4f 4b 45 | POKEV+2|,90:POKE|
|000001e0| 56 2b 33 2c 38 34 3a 50 | 4f 4b 45 56 2b 34 2c 38 |V+3,84:P|OKEV+4,8|
|000001f0| 38 3a 50 4f 4b 45 56 2b | 35 2c 31 32 36 3a 50 4f |8:POKEV+|5,126:PO|
|00000200| 4b 45 56 2b 32 33 2c 31 | 34 3a 50 4f 4b 45 56 2b |KEV+23,1|4:POKEV+|
|00000210| 32 39 2c 31 34 0a 32 32 | 30 20 50 4f 4b 45 56 2b |29,14.22|0 POKEV+|
|00000220| 36 2c 39 30 3a 50 4f 4b | 45 56 2b 37 2c 31 36 33 |6,90:POK|EV+7,163|
|00000230| 3a 50 4f 4b 45 56 2b 34 | 30 2c 30 3a 50 4f 4b 45 |:POKEV+4|0,0:POKE|
|00000240| 56 2b 34 31 2c 30 3a 50 | 4f 4b 45 56 2b 34 32 2c |V+41,0:P|OKEV+42,|
|00000250| 30 0a 32 33 30 20 53 3d | 35 34 32 37 32 3a 46 4f |0.230 S=|54272:FO|
|00000260| 52 20 54 3d 20 53 20 54 | 4f 20 53 2b 32 34 3a 50 |R T= S T|O S+24:P|
|00000270| 4f 4b 45 54 2c 30 3a 4e | 45 58 54 0a 32 34 30 20 |OKET,0:N|EXT.240 |
|00000280| 50 4f 4b 45 53 2b 32 34 | 2c 31 33 3a 50 4f 4b 45 |POKES+24|,13:POKE|
|00000290| 53 2b 35 2c 31 37 3a 50 | 4f 4b 45 53 2b 36 2c 32 |S+5,17:P|OKES+6,2|
|000002a0| 34 33 0a 32 35 30 20 50 | 52 49 4e 54 22 93 11 11 |43.250 P|RINT"...|
|000002b0| 11 11 11 11 11 11 11 11 | 1d 1d 1d 1d 1d 1d 1d 1d |........|........|
|000002c0| 1d 1d 1d 1d 1d 4e 41 4d | 45 20 54 48 41 54 20 4e |.....NAM|E THAT N|
|000002d0| 4f 54 45 22 3a 46 4f 52 | 54 3d 36 54 4f 20 32 30 |OTE":FOR|T=6TO 20|
|000002e0| 3a 50 4f 4b 45 53 2c 4c | 4f 57 25 28 54 29 0a 32 |:POKES,L|OW%(T).2|
|000002f0| 36 30 20 50 4f 4b 45 53 | 2b 31 2c 48 49 25 28 54 |60 POKES|+1,HI%(T|
|00000300| 29 3a 50 4f 4b 45 53 2b | 34 2c 31 37 3a 46 4f 52 |):POKES+|4,17:FOR|
|00000310| 20 54 31 3d 20 31 54 4f | 31 35 30 3a 4e 45 58 54 | T1= 1TO|150:NEXT|
|00000320| 3a 50 4f 4b 45 53 2b 34 | 2c 31 36 0a 32 37 30 20 |:POKES+4|,16.270 |
|00000330| 46 4f 52 20 54 32 3d 31 | 54 4f 34 30 3a 4e 45 58 |FOR T2=1|TO40:NEX|
|00000340| 54 3a 4e 45 58 54 0a 32 | 38 30 20 43 48 24 3d 22 |T:NEXT.2|80 CH$="|
|00000350| 22 3a 50 52 49 4e 54 22 | 11 11 1d 1d 1d 1d 44 4f |":PRINT"|......DO|
|00000360| 20 59 4f 55 20 57 41 4e | 54 20 12 54 92 52 45 42 | YOU WAN|T .T.REB|
|00000370| 4c 45 2c 20 12 42 92 41 | 53 53 20 4f 52 20 12 41 |LE, .B.A|SS OR .A|
|00000380| 92 4c 4c 22 3a 49 4e 50 | 55 54 20 22 1d 1d 1d 1d |.LL":INP|UT "....|
|00000390| 22 3b 43 48 24 0a 32 39 | 30 20 49 46 20 43 48 24 |";CH$.29|0 IF CH$|
|000003a0| 3c 3e 22 42 22 41 4e 44 | 43 48 24 3c 3e 22 54 22 |<>"B"AND|CH$<>"T"|
|000003b0| 41 4e 44 20 43 48 24 3c | 3e 22 41 22 54 48 45 4e |AND CH$<|>"A"THEN|
|000003c0| 20 50 52 49 4e 54 22 91 | 91 91 91 91 22 20 3a 47 | PRINT".|...." :G|
|000003d0| 4f 54 4f 32 38 30 0a 33 | 30 30 20 4c 57 3d 2d 28 |OTO280.3|00 LW=-(|
|000003e0| 43 48 24 3d 22 42 22 4f | 52 43 48 24 3d 22 41 22 |CH$="B"O|RCH$="A"|
|000003f0| 29 2d 28 43 48 24 3d 22 | 54 22 29 2a 31 33 0a 33 |)-(CH$="|T")*13.3|
|00000400| 31 30 20 54 50 3d 2d 28 | 43 48 24 3d 22 42 22 29 |10 TP=-(|CH$="B")|
|00000410| 2a 31 33 2d 28 43 48 24 | 3d 22 54 22 4f 52 43 48 |*13-(CH$|="T"ORCH|
|00000420| 24 3d 22 41 22 29 2a 32 | 35 0a 33 32 30 20 50 4f |$="A")*2|5.320 PO|
|00000430| 4b 45 36 34 36 2c 36 3a | 50 52 49 4e 54 22 93 11 |KE646,6:|PRINT"..|
|00000440| 11 11 11 11 11 22 0a 33 | 33 30 20 4c 49 24 3d 22 |.....".3|30 LI$="|
|00000450| c0 c0 c0 c0 c0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |........|........|
|00000460| c0 c0 c0 c0 c0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |........|........|
|00000470| c0 c0 22 3a 46 4f 52 20 | 54 3d 20 31 20 54 4f 20 |..":FOR |T= 1 TO |
|00000480| 35 3a 50 52 49 4e 54 53 | 50 43 28 33 29 4c 49 24 |5:PRINTS|PC(3)LI$|
|00000490| 3a 4e 45 58 54 0a 33 34 | 30 20 50 52 49 4e 54 22 |:NEXT.34|0 PRINT"|
|000004a0| 11 22 0a 33 35 30 20 46 | 4f 52 20 54 3d 20 31 20 |.".350 F|OR T= 1 |
|000004b0| 54 4f 20 35 3a 50 52 49 | 4e 54 53 50 43 28 33 29 |TO 5:PRI|NTSPC(3)|
|000004c0| 4c 49 24 3a 4e 45 58 54 | 0a 33 36 30 20 50 52 49 |LI$:NEXT|.360 PRI|
|000004d0| 4e 54 22 13 43 4f 55 4e | 54 45 52 1d 1d 1d 1d 1d |NT".COUN|TER.....|
|000004e0| 1d 1d 53 43 4f 52 45 1d | 1d 1d 1d 1d 1d 1d 4d 49 |..SCORE.|......MI|
|000004f0| 53 53 45 53 22 0a 33 37 | 30 20 46 4f 52 20 54 52 |SSES".37|0 FOR TR|
|00000500| 3d 20 31 20 54 4f 20 32 | 30 0a 33 38 30 20 4e 4e |= 1 TO 2|0.380 NN|
|00000510| 3d 49 4e 54 28 52 4e 44 | 28 30 29 2a 28 54 50 2d |=INT(RND|(0)*(TP-|
|00000520| 4c 57 29 2b 4c 57 29 3a | 49 46 4e 4e 3d 4e 4f 20 |LW)+LW):|IFNN=NO |
|00000530| 54 48 45 4e 20 33 38 30 | 0a 33 39 30 20 50 4f 4b |THEN 380|.390 POK|
|00000540| 45 53 2c 4c 4f 57 25 28 | 4e 4e 29 3a 50 4f 4b 45 |ES,LOW%(|NN):POKE|
|00000550| 53 2b 31 2c 48 49 25 28 | 4e 4e 29 0a 34 30 30 20 |S+1,HI%(|NN).400 |
|00000560| 49 46 20 4e 4e 3d 31 4f | 52 4e 4e 3d 32 35 4f 52 |IF NN=1O|RNN=25OR|
|00000570| 4e 4e 3d 31 33 54 48 45 | 4e 20 50 4f 4b 45 20 37 |NN=13THE|N POKE 7|
|00000580| 35 32 2c 09 0a 34 31 30 | 20 50 4f 4b 45 37 35 32 |52,..410| POKE752|
|00000590| 2c 31 3a 50 4f 4b 45 37 | 35 34 2c 30 0a 34 32 30 |,1:POKE7|54,0.420|
|000005a0| 20 50 4f 4b 45 20 56 2b | 31 2c 28 31 39 34 2d 34 | POKE V+|1,(194-4|
|000005b0| 2a 4e 4e 29 2b 38 2a 28 | 4e 4e 3e 31 33 29 3a 50 |*NN)+8*(|NN>13):P|
|000005c0| 4f 4b 45 56 2b 32 31 2c | 31 35 0a 34 33 30 20 54 |OKEV+21,|15.430 T|
|000005d0| 53 3d 31 30 0a 34 34 30 | 20 46 4f 52 20 54 3d 30 |S=10.440| FOR T=0|
|000005e0| 54 4f 20 35 30 30 3a 4e | 45 58 54 3a 54 53 3d 54 |TO 500:N|EXT:TS=T|
|000005f0| 53 2d 31 3a 50 52 49 4e | 54 22 13 1d 1d 1d 1d 1d |S-1:PRIN|T"......|
|00000600| 1d 1d 1d 1d 22 3b 54 53 | 3a 47 45 54 20 47 24 0a |....";TS|:GET G$.|
|00000610| 34 35 30 20 49 46 20 47 | 24 3c 3e 22 22 54 48 45 |450 IF G|$<>""THE|
|00000620| 4e 50 4f 4b 45 31 39 33 | 34 2c 28 41 53 43 28 47 |NPOKE193|4,(ASC(G|
|00000630| 24 29 2d 36 34 29 41 4e | 44 32 35 35 0a 34 36 30 |$)-64)AN|D255.460|
|00000640| 20 49 46 28 47 24 3c 3e | 22 22 41 4e 44 20 47 24 | IF(G$<>|""AND G$|
|00000650| 3c 3e 4d 49 44 24 28 4e | 4f 24 2c 4e 4e 2c 31 29 |<>MID$(N|O$,NN,1)|
|00000660| 29 4f 52 54 53 3d 30 54 | 48 45 4e 57 52 3d 57 52 |)ORTS=0T|HENWR=WR|
|00000670| 2b 31 3a 50 4f 4b 45 31 | 39 38 2c 30 0a 34 37 30 |+1:POKE1|98,0.470|
|00000680| 20 50 52 49 4e 54 22 13 | 1d 1d 1d 1d 1d 1d 1d 1d | PRINT".|........|
|00000690| 1d 1d 1d 1d 1d 1d 1d 1d | 1d 1d 1d 1d 1d 1d 1d 1d |........|........|
|000006a0| 1d 1d 1d 1d 1d 1d 1d 1d | 1d 22 3b 57 52 0a 34 38 |........|.";WR.48|
|000006b0| 30 20 49 46 47 24 3c 3e | 4d 49 44 24 28 4e 4f 24 |0 IFG$<>|MID$(NO$|
|000006c0| 2c 4e 4e 2c 31 29 41 4e | 44 54 53 3c 3e 30 54 48 |,NN,1)AN|DTS<>0TH|
|000006d0| 45 4e 34 34 30 0a 34 38 | 35 20 49 46 20 54 53 3c |EN440.48|5 IF TS<|
|000006e0| 3e 30 54 48 45 4e 50 4f | 4b 45 53 2b 34 2c 31 37 |>0THENPO|KES+4,17|
|000006f0| 3a 46 4f 52 54 3d 31 54 | 4f 33 30 30 3a 4e 45 58 |:FORT=1T|O300:NEX|
|00000700| 54 3a 50 4f 4b 45 53 2b | 34 2c 31 36 0a 34 39 30 |T:POKES+|4,16.490|
|00000710| 20 53 43 3d 53 43 2b 54 | 53 3a 50 52 49 4e 54 22 | SC=SC+T|S:PRINT"|
|00000720| 13 1d 1d 1d 1d 1d 1d 1d | 1d 1d 1d 1d 1d 1d 1d 1d |........|........|
|00000730| 1d 1d 1d 1d 1d 22 3b 53 | 43 3b 0a 35 30 30 20 46 |.....";S|C;.500 F|
|00000740| 4f 52 20 54 3d 20 30 20 | 54 4f 20 31 35 30 30 3a |OR T= 0 |TO 1500:|
|00000750| 4e 45 58 54 0a 35 31 30 | 20 4e 4f 3d 4e 4e 3a 4e |NEXT.510| NO=NN:N|
|00000760| 45 58 54 0a 35 32 30 20 | 50 4f 4b 45 56 2b 32 31 |EXT.520 |POKEV+21|
|00000770| 2c 30 3a 50 52 49 4e 54 | 22 93 1d 1d 1d 1d 1d 1d |,0:PRINT|".......|
|00000780| 1d 1d 1d 1d 1d 11 11 11 | 11 11 11 11 59 4f 55 52 |........|....YOUR|
|00000790| 20 53 43 4f 52 45 20 57 | 41 53 22 3b 53 43 0a 35 | SCORE W|AS";SC.5|
|000007a0| 33 30 20 50 52 49 4e 54 | 22 11 11 11 1d 1d 1d 1d |30 PRINT|".......|
|000007b0| 1d 1d 1d 1d 1d 41 4e 44 | 20 59 4f 55 20 4d 49 53 |.....AND| YOU MIS|
|000007c0| 53 45 44 22 3b 57 52 3b | 22 54 49 4d 45 28 53 29 |SED";WR;|"TIME(S)|
|000007d0| 22 0a 35 34 30 20 50 52 | 49 4e 54 22 09 00 11 1d |".540 PR|INT"....|
|000007e0| 1d 1d 1d 1d 1d 57 4f 55 | 4c 44 20 59 4f 55 20 4c |.....WOU|LD YOU L|
|000007f0| 49 4b 45 20 54 4f 20 50 | 4c 41 59 20 41 47 41 49 |IKE TO P|LAY AGAI|
|00000800| 4e 3f 22 0a 35 35 30 20 | 47 45 54 20 41 24 3a 49 |N?".550 |GET A$:I|
|00000810| 46 20 41 24 3d 22 22 54 | 48 45 4e 35 35 30 0a 35 |F A$=""T|HEN550.5|
|00000820| 36 30 20 49 46 20 41 24 | 3c 3e 22 59 22 41 4e 44 |60 IF A$|<>"Y"AND|
|00000830| 41 24 3c 3e 22 4e 22 54 | 48 45 4e 35 35 30 0a 35 |A$<>"N"T|HEN550.5|
|00000840| 37 30 20 49 46 20 41 24 | 3d 22 59 22 54 48 45 4e |70 IF A$|="Y"THEN|
|00000850| 20 52 55 4e 0a 35 38 30 | 20 52 45 4d 20 44 41 54 | RUN.580| REM DAT|
|00000860| 41 20 4e 4f 54 45 53 20 | 28 4c 4f 57 20 42 59 54 |A NOTES |(LOW BYT|
|00000870| 45 53 29 0a 35 39 30 20 | 44 41 54 41 20 37 31 2c |ES).590 |DATA 71,|
|00000880| 31 35 32 2c 37 31 2c 31 | 32 2c 32 33 33 2c 39 37 |152,71,1|2,233,97|
|00000890| 2c 31 30 34 2c 31 34 33 | 2c 34 38 2c 31 34 33 2c |,104,143|,48,143,|
|000008a0| 32 34 2c 32 31 30 0a 36 | 30 30 20 44 41 54 41 20 |24,210.6|00 DATA |
|000008b0| 31 39 35 2c 32 30 39 2c | 33 31 2c 39 36 2c 33 30 |195,209,|31,96,30|
|000008c0| 2c 34 39 2c 31 36 35 2c | 31 33 35 2c 31 36 32 2c |,49,165,|135,162,|
|000008d0| 36 32 2c 31 39 33 2c 36 | 30 2c 39 39 0a 36 31 30 |62,193,6|0,99.610|
|000008e0| 20 52 45 4d 20 44 41 54 | 41 20 4e 4f 54 45 53 20 | REM DAT|A NOTES |
|000008f0| 28 48 49 47 48 20 42 59 | 54 45 53 29 0a 36 32 30 |(HIGH BY|TES).620|
|00000900| 20 44 41 54 41 20 35 2c | 35 2c 36 2c 37 2c 37 2c | DATA 5,|5,6,7,7,|
|00000910| 38 2c 39 2c 31 30 2c 31 | 31 2c 31 32 2c 31 34 2c |8,9,10,1|1,12,14,|
|00000920| 31 35 0a 36 33 30 20 44 | 41 54 41 20 31 36 2c 31 |15.630 D|ATA 16,1|
|00000930| 38 2c 32 31 2c 32 32 2c | 32 35 2c 32 38 2c 33 31 |8,21,22,|25,28,31|
|00000940| 2c 33 33 2c 33 37 2c 34 | 32 2c 34 34 2c 35 30 2c |,33,37,4|2,44,50,|
|00000950| 35 36 0a 36 34 30 20 52 | 45 4d 20 44 41 54 41 20 |56.640 R|EM DATA |
|00000960| 46 4f 52 20 53 50 52 49 | 54 45 0a 36 35 30 20 44 |FOR SPRI|TE.650 D|
|00000970| 41 54 41 30 30 30 2c 30 | 30 32 2c 30 30 30 2c 30 |ATA000,0|02,000,0|
|00000980| 30 30 2c 30 30 33 2c 30 | 30 30 2c 30 30 30 2c 30 |00,003,0|00,000,0|
|00000990| 30 32 0a 36 36 30 20 44 | 41 54 41 31 32 38 2c 30 |02.660 D|ATA128,0|
|000009a0| 30 30 2c 30 30 32 2c 30 | 36 34 2c 30 30 30 2c 30 |00,002,0|64,000,0|
|000009b0| 30 32 2c 30 33 32 2c 30 | 30 30 0a 36 37 30 20 44 |02,032,0|00.670 D|
|000009c0| 41 54 41 30 30 32 2c 30 | 33 32 2c 30 30 30 2c 30 |ATA002,0|32,000,0|
|000009d0| 30 32 2c 30 33 32 2c 30 | 30 30 2c 30 30 32 2c 30 |02,032,0|00,002,0|
|000009e0| 36 34 0a 36 38 30 20 44 | 41 54 41 30 30 30 2c 30 |64.680 D|ATA000,0|
|000009f0| 30 32 2c 30 30 30 2c 30 | 30 30 2c 30 30 32 2c 30 |02,000,0|00,002,0|
|00000a00| 30 30 2c 30 30 30 2c 30 | 30 32 0a                |00,000,0|02.     |
+--------+-------------------------+-------------------------+--------+--------+