/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / SUPER-XFER-8.4 / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 20 43 4c 4f 53 45 31 | 35 3a 4f 50 45 4e 31 35 |0 CLOSE1|5:OPEN15|
|00000010| 2c 38 2c 31 35 2c 22 55 | 39 22 3a 43 4c 4f 53 45 |,8,15,"U|9":CLOSE|
|00000020| 31 35 0a 31 31 20 52 45 | 4d 22 c4 41 49 4c 59 20 |15.11 RE|M".AILY |
|00000030| c5 58 43 48 41 4e 47 45 | 20 c2 c2 d3 20 28 37 30 |.XCHANGE| ... (70|
|00000040| 33 29 39 38 39 2d 37 34 | 36 31 00 0a 31 35 20 50 |3)989-74|61..15 P|
|00000050| 52 49 4e 54 22 93 0e 1e | 11 11 11 11 11 11 22 54 |RINT"...|......"T|
|00000060| 41 42 28 31 32 29 22 9e | d3 55 50 45 52 20 d8 46 |AB(12)".|.UPER .F|
|00000070| 45 52 20 38 2e 34 11 11 | 11 22 3a 50 52 49 4e 54 |ER 8.4..|.":PRINT|
|00000080| 54 41 42 28 31 38 29 22 | 42 59 00 0a 31 36 20 50 |TAB(18)"|BY..16 P|
|00000090| 52 49 4e 54 54 41 42 28 | 31 34 29 22 c4 41 56 49 |RINTTAB(|14)".AVI|
|000000a0| 44 20 c2 4f 4c 54 22 3a | 50 52 49 4e 54 54 41 42 |D .OLT":|PRINTTAB|
|000000b0| 28 31 33 29 22 c7 52 45 | 47 20 d0 46 4f 55 4e 54 |(13)".RE|G .FOUNT|
|000000c0| 5a 11 00 0a 31 37 20 50 | 4f 4b 45 35 33 32 38 31 |Z...17 P|OKE53281|
|000000d0| 2c 30 3a 50 4f 4b 45 35 | 33 32 38 30 2c 30 0a 31 |,0:POKE5|3280,0.1|
|000000e0| 38 20 50 52 49 4e 54 22 | 11 11 11 11 11 11 11 22 |8 PRINT"|......."|
|000000f0| 54 41 42 28 31 30 29 22 | 99 31 29 20 ce 4f 52 4d |TAB(10)"|.1) .ORM|
|00000100| 41 4c 22 3a 50 52 49 4e | 54 54 41 42 28 31 30 29 |AL":PRIN|TTAB(10)|
|00000110| 22 32 29 20 cd 41 58 20 | 42 55 46 46 45 52 20 53 |"2) .AX |BUFFER S|
|00000120| 49 5a 45 00 0a 31 39 20 | 50 52 49 4e 54 54 41 42 |IZE..19 |PRINTTAB|
|00000130| 28 31 30 29 22 33 29 20 | cd 41 58 20 4e 55 4d 42 |(10)"3) |.AX NUMB|
|00000140| 45 52 20 4f 46 20 46 49 | 4c 45 53 91 91 91 91 91 |ER OF FI|LES.....|
|00000150| 00 0a 32 30 20 49 4e 50 | 55 54 22 d3 45 4c 45 43 |..20 INP|UT".ELEC|
|00000160| 54 20 43 4f 4e 46 49 47 | 55 52 41 54 49 4f 4e 1d |T CONFIG|URATION.|
|00000170| 1d 31 9d 9d 9d 22 3b 41 | 3a 42 3d 33 35 3a 49 46 |.1...";A|:B=35:IF|
|00000180| 41 3d 32 54 48 45 4e 42 | 3d 32 33 0a 32 32 20 49 |A=2THENB|=23.22 I|
|00000190| 46 41 3d 33 54 48 45 4e | 42 3d 36 35 0a 32 34 20 |FA=3THEN|B=65.24 |
|000001a0| 50 4f 4b 45 35 36 2c 42 | 3a 50 4f 4b 45 35 35 2c |POKE56,B|:POKE55,|
|000001b0| 30 0a 32 35 20 43 4c 52 | 3a 54 58 24 3d 22 41 22 |0.25 CLR|:TX$="A"|
|000001c0| 3a 46 4f 52 41 3d 31 54 | 4f 34 30 3a 54 58 24 3d |:FORA=1T|O40:TX$=|
|000001d0| 54 58 24 2b 22 41 22 3a | 4e 45 58 54 0a 33 30 20 |TX$+"A":|NEXT.30 |
|000001e0| 4f 50 3d 28 50 45 45 4b | 28 35 36 29 2d 32 32 29 |OP=(PEEK|(56)-22)|
|000001f0| 2a 36 3a 4d 41 3d 32 35 | 36 2d 50 45 45 4b 28 35 |*6:MA=25|6-PEEK(5|
|00000200| 36 29 3a 42 46 3d 4d 41 | 0a 33 35 20 50 52 49 4e |6):BF=MA|.35 PRIN|
|00000210| 54 22 11 11 11 11 11 9e | 93 c2 55 46 46 45 52 20 |T"......|..UFFER |
|00000220| 53 49 5a 45 20 3d 22 42 | 46 22 42 4c 4f 43 4b 53 |SIZE ="B|F"BLOCKS|
|00000230| 2c 22 4f 50 22 46 49 4c | 45 53 11 11 11 00 0a 34 |,"OP"FIL|ES.....4|
|00000240| 30 20 4d 4c 3d 35 30 30 | 30 3a 4f 50 3d 49 4e 54 |0 ML=500|0:OP=INT|
|00000250| 28 4f 50 29 2b 31 3a 44 | 49 4d 46 24 28 4f 50 29 |(OP)+1:D|IMF$(OP)|
|00000260| 2c 54 24 28 4f 50 29 2c | 50 28 4f 50 29 2c 42 25 |,T$(OP),|P(OP),B%|
|00000270| 28 4f 50 29 3a 47 4f 53 | 55 42 31 32 30 30 3a 47 |(OP):GOS|UB1200:G|
|00000280| 4f 53 55 42 31 31 30 30 | 3a 41 31 3d 31 0a 36 35 |OSUB1100|:A1=1.65|
|00000290| 20 49 46 56 3d 30 54 48 | 45 4e 39 39 30 0a 37 30 | IFV=0TH|EN990.70|
|000002a0| 20 53 59 53 4d 4c 2b 33 | 3a 50 52 49 4e 54 22 11 | SYSML+3|:PRINT".|
|000002b0| 12 99 d2 45 41 44 49 4e | 47 11 22 3a 46 4f 52 41 |...EADIN|G.":FORA|
|000002c0| 3d 31 54 4f 56 3a 49 46 | 46 24 28 41 29 3d 22 22 |=1TOV:IF|F$(A)=""|
|000002d0| 54 48 45 4e 31 30 30 0a | 37 35 20 46 24 28 41 29 |THEN100.|75 F$(A)|
|000002e0| 3d 46 24 28 41 29 2b 22 | 2c 22 2b 54 24 28 41 29 |=F$(A)+"|,"+T$(A)|
|000002f0| 2b 22 2c 00 0a 37 37 20 | 42 46 3d 42 46 2d 42 25 |+",..77 |BF=BF-B%|
|00000300| 28 41 29 3a 49 46 42 46 | 3c 30 54 48 45 4e 47 4f |(A):IFBF|<0THENGO|
|00000310| 53 55 42 31 33 30 30 3a | 47 4f 54 4f 37 37 0a 37 |SUB1300:|GOTO77.7|
|00000320| 39 20 50 52 49 4e 54 4c | 45 46 54 24 28 46 24 28 |9 PRINTL|EFT$(F$(|
|00000330| 41 29 2c 4c 45 4e 28 46 | 24 28 41 29 29 2d 33 29 |A),LEN(F|$(A))-3)|
|00000340| 0a 38 30 20 4f 50 45 4e | 31 35 2c 44 2c 31 35 3a |.80 OPEN|15,D,15:|
|00000350| 4f 50 45 4e 32 2c 44 2c | 32 2c 46 24 28 41 29 2b |OPEN2,D,|2,F$(A)+|
|00000360| 22 52 22 0a 38 32 20 47 | 4f 53 55 42 39 39 39 3a |"R".82 G|OSUB999:|
|00000370| 49 46 45 52 54 48 45 4e | 50 52 49 4e 54 54 41 42 |IFERTHEN|PRINTTAB|
|00000380| 28 32 30 29 22 91 12 1c | 22 45 52 24 3a 43 4c 4f |(20)"...|"ER$:CLO|
|00000390| 53 45 32 3a 47 4f 54 4f | 39 39 33 0a 38 34 20 53 |SE2:GOTO|993.84 S|
|000003a0| 59 53 4d 4c 2b 36 0a 38 | 37 20 43 4c 4f 53 45 32 |YSML+6.8|7 CLOSE2|
|000003b0| 3a 47 4f 53 55 42 39 39 | 39 3a 49 46 45 52 54 48 |:GOSUB99|9:IFERTH|
|000003c0| 45 4e 50 52 49 4e 54 54 | 41 42 28 32 30 29 22 91 |ENPRINTT|AB(20)".|
|000003d0| 12 1c 22 45 52 24 3a 47 | 4f 54 4f 39 39 33 0a 39 |.."ER$:G|OTO993.9|
|000003e0| 30 20 43 4c 4f 53 45 31 | 35 0a 31 30 30 20 4e 45 |0 CLOSE1|5.100 NE|
|000003f0| 58 54 41 3a 49 46 42 46 | 3d 4d 41 54 48 45 4e 39 |XTA:IFBF|=MATHEN9|
|00000400| 39 30 0a 31 31 30 20 46 | 3d 2d 39 39 3a 47 4f 53 |90.110 F|=-99:GOS|
|00000410| 55 42 31 33 30 30 0a 39 | 39 30 20 50 52 49 4e 54 |UB1300.9|90 PRINT|
|00000420| 22 11 11 1e c1 4e 59 20 | 4d 4f 52 45 20 46 49 4c |"....NY |MORE FIL|
|00000430| 45 53 3f 20 28 59 2f 4e | 29 20 22 3b 0a 39 39 31 |ES? (Y/N|) ";.991|
|00000440| 20 47 45 54 41 24 3a 49 | 46 41 24 3c 3e 22 59 22 | GETA$:I|FA$<>"Y"|
|00000450| 41 4e 44 41 24 3c 3e 22 | 4e 22 54 48 45 4e 39 39 |ANDA$<>"|N"THEN99|
|00000460| 31 0a 39 39 32 20 50 52 | 49 4e 54 41 24 3a 49 46 |1.992 PR|INTA$:IF|
|00000470| 41 24 3d 22 59 22 54 48 | 45 4e 52 55 4e 0a 39 39 |A$="Y"TH|ENRUN.99|
|00000480| 33 20 50 4f 4b 45 35 36 | 2c 31 36 30 3a 43 4c 52 |3 POKE56|,160:CLR|
|00000490| 3a 43 4c 4f 53 45 31 35 | 3a 50 52 49 4e 54 22 1e |:CLOSE15|:PRINT".|
|000004a0| 22 3a 45 4e 44 0a 39 39 | 39 20 49 4e 50 55 54 23 |":END.99|9 INPUT#|
|000004b0| 31 35 2c 45 52 2c 45 52 | 24 3a 52 45 54 55 52 4e |15,ER,ER|$:RETURN|
|000004c0| 0a 31 31 30 30 20 55 3d | 31 3a 50 52 49 4e 54 3a |.1100 U=|1:PRINT:|
|000004d0| 50 52 49 4e 54 3a 41 59 | 3d 30 3a 51 24 3d 22 59 |PRINT:AY|=0:Q$="Y|
|000004e0| 22 0a 31 31 31 30 20 4f | 50 45 4e 38 2c 44 2c 30 |".1110 O|PEN8,D,0|
|000004f0| 2c 22 24 30 3a 22 2b 50 | 4d 24 0a 31 31 32 30 20 |,"$0:"+P|M$.1120 |
|00000500| 47 45 54 23 38 2c 41 24 | 2c 41 24 2c 41 24 2c 41 |GET#8,A$|,A$,A$,A|
|00000510| 24 2c 41 24 2c 41 24 3a | 53 59 53 4d 4c 0a 31 31 |$,A$,A$:|SYSML.11|
|00000520| 32 32 20 50 52 49 4e 54 | 22 12 9c c2 4c 4b 53 20 |22 PRINT|"...LKS |
|00000530| 22 4c 45 46 54 24 28 54 | 58 24 2c 50 45 45 4b 28 |"LEFT$(T|X$,PEEK(|
|00000540| 31 34 32 29 29 22 20 20 | 20 20 20 d4 4f 54 41 4c |142))"  |   .OTAL|
|00000550| 11 22 0a 31 31 32 35 20 | 47 45 54 23 38 2c 41 24 |.".1125 |GET#8,A$|
|00000560| 2c 41 24 2c 41 24 2c 42 | 24 0a 31 31 33 30 20 43 |,A$,A$,B|$.1130 C|
|00000570| 3d 41 53 43 28 41 24 2b | 43 48 52 24 28 30 29 29 |=ASC(A$+|CHR$(0))|
|00000580| 2b 41 53 43 28 42 24 2b | 43 48 52 24 28 30 29 29 |+ASC(B$+|CHR$(0))|
|00000590| 2a 32 35 36 0a 31 31 33 | 35 20 49 46 09 0a 31 31 |*256.113|5 IF..11|
|000005a0| 34 35 20 53 59 53 4d 4c | 3a 53 53 3d 53 54 3a 49 |45 SYSML|:SS=ST:I|
|000005b0| 46 4c 45 46 54 24 28 54 | 58 24 2c 33 29 3d 22 42 |FLEFT$(T|X$,3)="B|
|000005c0| 4c 4f 22 54 48 45 4e 31 | 31 39 30 0a 31 31 34 37 |LO"THEN1|190.1147|
|000005d0| 20 50 52 49 4e 54 4d 49 | 44 24 28 53 54 52 24 28 | PRINTMI|D$(STR$(|
|000005e0| 43 29 2c 32 29 4c 45 46 | 54 24 28 54 58 24 2c 50 |C),2)LEF|T$(TX$,P|
|000005f0| 45 45 4b 28 31 34 32 29 | 29 0a 31 31 35 30 20 50 |EEK(142)|).1150 P|
|00000600| 52 49 4e 54 22 91 22 3b | 54 41 42 28 32 38 29 3b |RINT".";|TAB(28);|
|00000610| 3a 49 46 43 3e 4d 41 54 | 48 45 4e 50 52 49 4e 54 |:IFC>MAT|HENPRINT|
|00000620| 22 12 1c d4 4f 4f 20 c2 | 49 47 21 22 3a 47 4f 54 |"...OO .|IG!":GOT|
|00000630| 4f 31 31 32 35 0a 31 31 | 35 32 20 50 52 49 4e 54 |O1125.11|52 PRINT|
|00000640| 22 12 9e 59 2f 4e 92 20 | 22 3b 0a 31 31 35 35 20 |"..Y/N. |";.1155 |
|00000650| 41 24 3d 4c 45 46 54 24 | 28 54 58 24 2c 50 45 45 |A$=LEFT$|(TX$,PEE|
|00000660| 4b 28 31 34 32 29 29 0a | 31 31 36 30 20 49 46 41 |K(142)).|1160 IFA|
|00000670| 59 3c 3e 2d 39 39 54 48 | 45 4e 47 45 54 54 24 3a |Y<>-99TH|ENGETT$:|
|00000680| 49 46 54 24 3c 3e 22 20 | 22 41 4e 44 54 24 3c 3e |IFT$<>" |"ANDT$<>|
|00000690| 22 59 22 41 4e 44 54 24 | 3c 3e 22 4e 22 41 4e 44 |"Y"ANDT$|<>"N"AND|
|000006a0| 54 24 3c 3e 43 48 52 24 | 28 31 33 29 54 48 45 4e |T$<>CHR$|(13)THEN|
|000006b0| 31 31 36 30 0a 31 31 36 | 35 20 49 46 54 24 3d 43 |1160.116|5 IFT$=C|
|000006c0| 48 52 24 28 33 32 29 54 | 48 45 4e 50 52 49 4e 54 |HR$(32)T|HENPRINT|
|000006d0| 22 20 20 98 22 56 43 3a | 47 4f 54 4f 31 31 39 30 |"  ."VC:|GOTO1190|
|000006e0| 0a 31 31 37 30 20 49 46 | 54 24 3d 43 48 52 24 28 |.1170 IF|T$=CHR$(|
|000006f0| 31 33 29 54 48 45 4e 41 | 59 3d 2d 39 39 3a 54 24 |13)THENA|Y=-99:T$|
|00000700| 3d 51 24 0a 31 31 37 35 | 20 49 46 54 24 3d 22 4e |=Q$.1175| IFT$="N|
|00000710| 22 54 48 45 4e 51 24 3d | 54 24 3a 50 52 49 4e 54 |"THENQ$=|T$:PRINT|
|00000720| 22 1c ce 22 3b 3a 47 4f | 54 4f 31 31 38 35 0a 31 |"..";:GO|TO1185.1|
|00000730| 31 38 30 20 51 24 3d 54 | 24 3a 47 4f 53 55 42 32 |180 Q$=T|$:GOSUB2|
|00000740| 32 30 30 3a 49 46 54 24 | 28 55 29 3d 22 52 22 54 |200:IFT$|(U)="R"T|
|00000750| 48 45 4e 50 52 49 4e 54 | 22 1c 4e 22 3b 3a 46 24 |HENPRINT|".N";:F$|
|00000760| 28 55 29 3d 22 22 3a 47 | 4f 54 4f 31 31 38 35 0a |(U)="":G|OTO1185.|
|00000770| 31 31 38 32 20 55 3d 55 | 2b 31 3a 56 43 3d 56 43 |1182 U=U|+1:VC=VC|
|00000780| 2b 43 3a 50 52 49 4e 54 | 22 1e d9 22 3b 0a 31 31 |+C:PRINT|"..";.11|
|00000790| 38 35 20 50 52 49 4e 54 | 22 98 20 22 56 43 22 9c |85 PRINT|". "VC".|
|000007a0| 00 0a 31 31 38 37 20 49 | 46 55 3e 4f 50 2d 31 54 |..1187 I|FU>OP-1T|
|000007b0| 48 45 4e 50 52 49 4e 54 | 22 11 1c cd 41 58 49 4d |HENPRINT|"...AXIM|
|000007c0| 55 4d 22 3b 4f 50 2d 31 | 3b 22 46 49 4c 45 53 22 |UM";OP-1|;"FILES"|
|000007d0| 3a 43 4c 4f 53 45 38 3a | 47 4f 54 4f 31 31 39 30 |:CLOSE8:|GOTO1190|
|000007e0| 0a 31 31 38 38 20 47 4f | 54 4f 31 31 32 35 0a 31 |.1188 GO|TO1125.1|
|000007f0| 31 39 30 20 43 4c 4f 53 | 45 38 3a 56 3d 55 2d 31 |190 CLOS|E8:V=U-1|
|00000800| 3a 52 45 54 55 52 4e 0a | 31 32 30 30 20 49 4e 50 |:RETURN.|1200 INP|
|00000810| 55 54 22 91 99 d3 4f 55 | 52 43 45 20 44 52 49 56 |UT"...OU|RCE DRIV|
|00000820| 45 20 20 38 20 9d 9d 9d | 9d 22 3b 44 0a 31 32 31 |E  8 ...|.";D.121|
|00000830| 30 20 49 46 44 3c 38 4f | 52 44 3e 31 35 54 48 45 |0 IFD<8O|RD>15THE|
|00000840| 4e 31 32 30 30 0a 31 32 | 32 30 20 50 52 49 4e 54 |N1200.12|20 PRINT|
|00000850| 09 0a 31 32 33 30 20 49 | 46 44 31 3c 38 4f 52 44 |..1230 I|FD1<8ORD|
|00000860| 31 3e 31 35 54 48 45 4e | 31 32 32 30 0a 31 32 35 |1>15THEN|1220.125|
|00000870| 30 20 50 4f 4b 45 31 39 | 38 2c 31 3a 50 4f 4b 45 |0 POKE19|8,1:POKE|
|00000880| 36 33 31 2c 33 34 3a 49 | 4e 50 55 54 22 11 11 9e |631,34:I|NPUT"...|
|00000890| d0 41 54 54 45 52 4e 20 | 4d 41 54 43 48 20 20 20 |.ATTERN |MATCH   |
|000008a0| 2a 9d 9d 9d 9d 22 3b 50 | 4d 24 0a 31 32 36 30 20 |*....";P|M$.1260 |
|000008b0| 49 46 50 4d 24 3d 22 22 | 54 48 45 4e 31 32 35 30 |IFPM$=""|THEN1250|
|000008c0| 0a 31 32 37 30 20 50 52 | 49 4e 54 22 11 11 9b c6 |.1270 PR|INT"....|
|000008d0| 4f 52 4d 41 54 20 54 41 | 52 47 45 54 20 28 59 2f |ORMAT TA|RGET (Y/|
|000008e0| 4e 29 3f 20 22 3b 0a 31 | 32 37 35 20 47 4f 53 55 |N)? ";.1|275 GOSU|
|000008f0| 42 32 33 30 30 3a 49 46 | 41 24 3d 22 4e 22 54 48 |B2300:IF|A$="N"TH|
|00000900| 45 4e 52 45 54 55 52 4e | 0a 31 32 38 32 20 41 24 |ENRETURN|.1282 A$|
|00000910| 3d 22 22 3a 49 4e 50 55 | 54 22 11 11 ce 41 4d 45 |="":INPU|T"...AME|
|00000920| 20 28 31 36 20 43 48 41 | 52 53 20 4d 41 58 29 22 | (16 CHA|RS MAX)"|
|00000930| 3b 41 24 3a 49 46 41 24 | 3d 22 22 54 48 45 4e 52 |;A$:IFA$|=""THENR|
|00000940| 45 54 55 52 4e 0a 31 32 | 38 35 20 42 24 3d 22 22 |ETURN.12|85 B$=""|
|00000950| 3a 49 4e 50 55 54 22 11 | c9 c4 20 28 32 20 43 48 |:INPUT".|.. (2 CH|
|00000960| 41 52 53 20 2d 20 4f 50 | 54 49 4f 4e 41 4c 29 22 |ARS - OP|TIONAL)"|
|00000970| 3b 42 24 3a 49 46 42 24 | 3c 3e 22 22 54 48 45 4e |;B$:IFB$|<>""THEN|
|00000980| 41 24 3d 41 24 2b 22 2c | 22 2b 42 24 0a 31 32 38 |A$=A$+",|"+B$.128|
|00000990| 37 20 49 46 44 3d 44 31 | 54 48 45 4e 50 52 49 4e |7 IFD=D1|THENPRIN|
|000009a0| 54 22 11 11 12 9e c9 4e | 53 45 52 54 20 42 4c 41 |T".....N|SERT BLA|
|000009b0| 4e 4b 22 3a 50 4f 4b 45 | 31 39 38 2c 30 3a 57 41 |NK":POKE|198,0:WA|
|000009c0| 49 54 31 39 38 2c 31 3a | 50 4f 4b 45 31 39 38 2c |IT198,1:|POKE198,|
|000009d0| 30 0a 31 32 39 30 20 4f | 50 45 4e 31 35 2c 44 31 |0.1290 O|PEN15,D1|
|000009e0| 2c 31 35 2c 22 4e 30 3a | 22 2b 41 24 3a 47 4f 53 |,15,"N0:|"+A$:GOS|
|000009f0| 55 42 39 39 39 3a 49 46 | 45 52 54 48 45 4e 50 52 |UB999:IF|ERTHENPR|
|00000a00| 49 4e 54 22 11 12 22 45 | 52 24 3a 47 4f 54 4f 39 |INT".."E|R$:GOTO9|
|00000a10| 39 33 0a 31 32 39 31 20 | 50 52 49 4e 54 22 11 11 |93.1291 |PRINT"..|
|00000a20| 99 c6 4f 52 4d 41 54 20 | 41 4e 4f 54 48 45 52 3f |..ORMAT |ANOTHER?|
|00000a30| 20 28 59 2f 4e 29 20 22 | 3b 0a 31 32 39 32 20 47 | (Y/N) "|;.1292 G|
|00000a40| 45 54 41 24 3a 49 46 41 | 24 3c 3e 22 59 22 41 4e |ETA$:IFA|$<>"Y"AN|
|00000a50| 44 41 24 3c 3e 22 4e 22 | 41 4e 44 41 24 3c 3e 43 |DA$<>"N"|ANDA$<>C|
|00000a60| 48 52 24 28 31 33 29 54 | 48 45 4e 31 32 39 32 0a |HR$(13)T|HEN1292.|
|00000a70| 31 32 39 33 20 49 46 41 | 24 3d 43 48 52 24 28 31 |1293 IFA|$=CHR$(1|
|00000a80| 33 29 54 48 45 4e 41 24 | 3d 22 4e 22 0a 31 32 39 |3)THENA$|="N".129|
|00000a90| 34 20 50 52 49 4e 54 41 | 24 3a 49 46 41 24 3d 22 |4 PRINTA|$:IFA$="|
|00000aa0| 59 22 54 48 45 4e 43 4c | 4f 53 45 31 35 3a 41 24 |Y"THENCL|OSE15:A$|
|00000ab0| 3d 22 22 3a 47 4f 54 4f | 31 32 38 32 0a          |="":GOTO|1282.   |
+--------+-------------------------+-------------------------+--------+--------+