/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / SUPER-SEQ-PRINTER / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 50 52 49 4e 54 43 | 48 52 24 28 31 34 29 3a |1 PRINTC|HR$(14):|
|00000010| 44 49 4d 41 24 28 32 30 | 30 29 3a 5a 24 3d 22 22 |DIMA$(20|0):Z$=""|
|00000020| 3a 41 3d 30 3a 5a 3d 30 | 3a 49 3d 30 3a 52 53 3d |:A=0:Z=0|:I=0:RS=|
|00000030| 30 3a 4c 3d 30 3a 46 4c | 3d 30 0a 32 20 56 45 43 |0:L=0:FL|=0.2 VEC|
|00000040| 3d 50 45 45 4b 28 37 37 | 32 29 2b 32 35 36 2a 50 |=PEEK(77|2)+256*P|
|00000050| 45 45 4b 28 37 37 33 29 | 3a 49 46 56 45 43 3d 31 |EEK(773)|:IFVEC=1|
|00000060| 37 31 36 35 54 48 45 4e | 3a 2a 2a 2a 45 52 52 4f |7165THEN|:***ERRO|
|00000070| 52 2a 2a 2a 25 0a 33 20 | 50 52 49 4e 54 22 93 11 |R***%.3 |PRINT"..|
|00000080| 11 11 11 20 20 20 20 20 | 20 12 d3 55 50 45 52 20 |...     | ..UPER |
|00000090| d3 45 51 55 45 4e 54 49 | 41 4c 20 c6 49 4c 45 20 |.EQUENTI|AL .ILE |
|000000a0| d0 52 49 4e 54 45 52 92 | 22 0a 34 20 50 52 49 4e |.RINTER.|".4 PRIN|
|000000b0| 54 22 11 11 11 20 20 20 | 20 20 20 20 20 20 20 20 |T"...   |        |
|000000c0| 20 20 42 59 20 c3 48 52 | 49 53 20 ce 4f 4c 4c 45 |  BY .HR|IS .OLLE|
|000000d0| 54 22 0a 35 20 46 46 3d | 30 3a 49 4e 50 55 54 22 |T".5 FF=|0:INPUT"|
|000000e0| 11 11 11 28 46 29 41 4e | 46 4f 4c 44 20 4f 52 20 |...(F)AN|FOLD OR |
|000000f0| 28 53 29 49 4e 47 4c 45 | 20 53 48 45 45 54 22 3b |(S)INGLE| SHEET";|
|00000100| 46 46 24 3a 49 46 46 46 | 24 3d 22 46 22 54 48 45 |FF$:IFFF|$="F"THE|
|00000110| 4e 46 46 3d 31 0a 36 20 | 46 31 3d 30 0a 37 20 4f |NFF=1.6 |F1=0.7 O|
|00000120| 50 45 4e 31 35 2c 38 2c | 31 35 0a 38 20 4f 50 45 |PEN15,8,|15.8 OPE|
|00000130| 4e 34 2c 34 2c 37 0a 39 | 20 49 4e 50 55 54 22 11 |N4,4,7.9| INPUT".|
|00000140| 11 11 4f 4e 45 2d 2c 20 | 54 57 4f 2d 20 4f 52 20 |..ONE-, |TWO- OR |
|00000150| 54 48 52 45 45 2d 43 4f | 4c 55 4d 4e 20 28 31 2f |THREE-CO|LUMN (1/|
|00000160| 32 2f 33 29 22 3b 58 24 | 3a 49 46 58 24 3c 22 31 |2/3)";X$|:IFX$<"1|
|00000170| 22 4f 52 58 24 3e 22 33 | 22 54 48 45 4e 39 0a 31 |"ORX$>"3|"THEN9.1|
|00000180| 30 20 4f 4e 56 41 4c 28 | 58 24 29 47 4f 54 4f 36 |0 ONVAL(|X$)GOTO6|
|00000190| 32 2c 34 30 2c 31 31 0a | 31 31 20 5a 3d 31 36 32 |2,40,11.|11 Z=162|
|000001a0| 3a 4c 3d 35 35 3a 49 46 | 46 46 3d 31 54 48 45 4e |:L=55:IF|FF=1THEN|
|000001b0| 5a 3d 31 38 30 3a 4c 3d | 36 30 0a 31 32 20 50 52 |Z=180:L=|60.12 PR|
|000001c0| 49 4e 54 23 34 3a 43 4c | 4f 53 45 34 3a 4f 50 45 |INT#4:CL|OSE4:OPE|
|000001d0| 4e 31 33 2c 34 2c 31 33 | 3a 50 52 49 4e 54 23 31 |N13,4,13|:PRINT#1|
|000001e0| 33 3a 4f 50 45 4e 34 2c | 34 2c 37 3a 50 52 49 4e |3:OPEN4,|4,7:PRIN|
|000001f0| 54 23 34 0a 31 33 20 52 | 45 4d 20 43 48 41 4e 47 |T#4.13 R|EM CHANG|
|00000200| 45 20 4c 49 4e 45 20 31 | 32 20 54 4f 20 53 45 4e |E LINE 1|2 TO SEN|
|00000210| 44 20 50 52 49 4e 54 45 | 52 20 20 20 20 20 20 20 |D PRINTE|R       |
|00000220| 20 20 20 43 4f 44 45 53 | 20 46 4f 52 20 43 4f 4e |   CODES| FOR CON|
|00000230| 44 45 4e 53 45 44 20 50 | 52 49 4e 54 0a 31 34 20 |DENSED P|RINT.14 |
|00000240| 49 46 46 46 3d 31 54 48 | 45 4e 50 52 49 4e 54 23 |IFFF=1TH|ENPRINT#|
|00000250| 34 3a 50 52 49 4e 54 23 | 34 3a 50 52 49 4e 54 23 |4:PRINT#|4:PRINT#|
|00000260| 34 0a 31 35 20 47 4f 53 | 55 42 38 33 0a 31 36 20 |4.15 GOS|UB83.16 |
|00000270| 46 4f 52 41 3d 31 54 4f | 5a 3a 41 24 28 41 29 3d |FORA=1TO|Z:A$(A)=|
|00000280| 22 22 3a 4e 45 58 54 3a | 41 3d 31 3a 49 46 46 31 |"":NEXT:|A=1:IFF1|
|00000290| 3d 31 54 48 45 4e 41 24 | 28 41 29 3d 41 24 28 5a |=1THENA$|(A)=A$(Z|
|000002a0| 2b 31 29 3a 41 24 28 5a | 2b 31 29 3d 22 22 3a 46 |+1):A$(Z|+1)="":F|
|000002b0| 31 3d 30 0a 31 37 20 46 | 4c 3d 4c 45 4e 28 41 24 |1=0.17 F|L=LEN(A$|
|000002c0| 28 41 29 29 3a 49 46 46 | 4c 3e 34 30 54 48 45 4e |(A)):IFF|L>40THEN|
|000002d0| 47 4f 54 4f 33 34 0a 31 | 38 20 47 45 54 23 32 2c |GOTO34.1|8 GET#2,|
|000002e0| 5a 24 3a 49 46 5a 24 3d | 43 48 52 24 28 31 33 29 |Z$:IFZ$=|CHR$(13)|
|000002f0| 54 48 45 4e 32 32 0a 31 | 39 20 49 46 5a 24 3d 43 |THEN22.1|9 IFZ$=C|
|00000300| 48 52 24 28 33 32 29 54 | 48 45 4e 46 4c 3d 4c 45 |HR$(32)T|HENFL=LE|
|00000310| 4e 28 41 24 28 41 29 29 | 0a 32 30 20 41 24 28 41 |N(A$(A))|.20 A$(A|
|00000320| 29 3d 41 24 28 41 29 2b | 5a 24 3a 49 46 4c 45 4e |)=A$(A)+|Z$:IFLEN|
|00000330| 28 41 24 28 41 29 29 3c | 34 30 41 4e 44 53 54 3d |(A$(A))<|40ANDST=|
|00000340| 30 54 48 45 4e 31 38 0a | 32 31 20 49 46 53 54 3d |0THEN18.|21 IFST=|
|00000350| 30 54 48 45 4e 41 24 28 | 41 2b 31 29 3d 52 49 47 |0THENA$(|A+1)=RIG|
|00000360| 48 54 24 28 41 24 28 41 | 29 2c 34 30 2d 28 46 4c |HT$(A$(A|),40-(FL|
|00000370| 2b 31 29 29 3a 41 24 28 | 41 29 3d 4c 45 46 54 24 |+1)):A$(|A)=LEFT$|
|00000380| 28 41 24 28 41 29 2c 46 | 4c 29 3a 47 4f 54 4f 32 |(A$(A),F|L):GOTO2|
|00000390| 34 0a 32 32 20 49 46 53 | 54 3d 36 34 54 48 45 4e |4.22 IFS|T=64THEN|
|000003a0| 50 52 49 4e 54 41 24 28 | 41 29 3a 47 4f 54 4f 33 |PRINTA$(|A):GOTO3|
|000003b0| 34 0a 32 33 20 49 46 53 | 54 3c 3e 30 54 48 45 4e |4.23 IFS|T<>0THEN|
|000003c0| 50 52 49 4e 54 22 45 52 | 52 4f 52 22 3a 47 4f 54 |PRINT"ER|ROR":GOT|
|000003d0| 4f 33 34 0a 32 34 20 50 | 52 49 4e 54 41 24 28 41 |O34.24 P|RINTA$(A|
|000003e0| 29 3a 41 3d 41 2b 31 3a | 49 46 41 3e 5a 54 48 45 |):A=A+1:|IFA>ZTHE|
|000003f0| 4e 32 36 0a 32 35 20 49 | 46 46 4c 3c 34 30 54 48 |N26.25 I|FFL<40TH|
|00000400| 45 4e 47 4f 54 4f 31 38 | 0a 32 36 20 49 46 41 24 |ENGOTO18|.26 IFA$|
|00000410| 28 5a 2b 31 29 3c 3e 22 | 22 54 48 45 4e 46 31 3d |(Z+1)<>"|"THENF1=|
|00000420| 31 0a 32 37 20 46 4f 52 | 49 3d 31 54 4f 4c 0a 32 |1.27 FOR|I=1TOL.2|
|00000430| 38 20 50 52 49 4e 54 23 | 34 2c 22 20 20 20 20 22 |8 PRINT#|4,"    "|
|00000440| 3b 41 24 28 49 29 3b 53 | 50 43 28 34 34 2d 4c 45 |;A$(I);S|PC(44-LE|
|00000450| 4e 28 41 24 28 49 29 29 | 29 3b 41 24 28 49 2b 4c |N(A$(I))|);A$(I+L|
|00000460| 29 3b 53 50 43 28 34 34 | 2d 4c 45 4e 28 41 24 28 |);SPC(44|-LEN(A$(|
|00000470| 49 2b 4c 29 29 29 3b 0a | 32 39 20 50 52 49 4e 54 |I+L)));.|29 PRINT|
|00000480| 23 34 2c 41 24 28 49 2b | 32 2a 4c 29 3a 4e 45 58 |#4,A$(I+|2*L):NEX|
|00000490| 54 49 0a 33 30 20 49 46 | 46 46 3d 31 54 48 45 4e |TI.30 IF|FF=1THEN|
|000004a0| 46 4f 52 50 47 3d 31 54 | 4f 36 3a 50 52 49 4e 54 |FORPG=1T|O6:PRINT|
|000004b0| 23 34 3a 4e 45 58 54 50 | 47 3a 47 4f 54 4f 31 36 |#4:NEXTP|G:GOTO16|
|000004c0| 0a 33 31 20 50 52 49 4e | 54 3a 50 52 49 4e 54 22 |.31 PRIN|T:PRINT"|
|000004d0| 50 4c 45 41 53 45 20 53 | 57 49 54 43 48 20 50 41 |PLEASE S|WITCH PA|
|000004e0| 50 45 52 20 41 4e 44 20 | 50 52 45 53 53 20 41 4e |PER AND |PRESS AN|
|000004f0| 59 20 4b 45 59 22 0a 33 | 32 20 47 45 54 41 4e 24 |Y KEY".3|2 GETAN$|
|00000500| 3a 49 46 41 4e 24 3d 22 | 22 54 48 45 4e 33 32 0a |:IFAN$="|"THEN32.|
|00000510| 33 33 20 47 4f 54 4f 31 | 36 0a 33 34 20 46 4f 52 |33 GOTO1|6.34 FOR|
|00000520| 49 3d 31 54 4f 49 4e 54 | 28 41 2f 33 29 2b 31 0a |I=1TOINT|(A/3)+1.|
|00000530| 33 35 20 50 52 49 4e 54 | 23 34 2c 22 20 20 20 20 |35 PRINT|#4,"    |
|00000540| 22 3b 41 24 28 49 29 3b | 53 50 43 28 34 34 2d 4c |";A$(I);|SPC(44-L|
|00000550| 45 4e 28 41 24 28 49 29 | 29 29 3b 41 24 28 49 2b |EN(A$(I)|));A$(I+|
|00000560| 28 49 4e 54 28 41 2f 33 | 29 2b 31 29 09 0a 33 36 |(INT(A/3|)+1)..36|
|00000570| 20 50 52 49 4e 54 23 34 | 2c 53 50 43 28 34 34 2d | PRINT#4|,SPC(44-|
|00000580| 4c 45 4e 28 41 24 28 49 | 2b 28 49 4e 54 28 41 2f |LEN(A$(I|+(INT(A/|
|00000590| 33 29 2b 31 29 29 29 29 | 3b 41 24 28 49 2b 32 2a |3)+1))))|;A$(I+2*|
|000005a0| 28 49 4e 54 28 41 2f 33 | 29 2b 31 29 29 0a 33 37 |(INT(A/3|)+1)).37|
|000005b0| 20 4e 45 58 54 49 0a 33 | 38 20 50 52 49 4e 54 23 | NEXTI.3|8 PRINT#|
|000005c0| 34 3a 43 4c 4f 53 45 34 | 3a 43 4c 4f 53 45 31 33 |4:CLOSE4|:CLOSE13|
|000005d0| 3a 4f 50 45 4e 31 30 2c | 34 2c 31 30 3a 50 52 49 |:OPEN10,|4,10:PRI|
|000005e0| 4e 54 23 31 30 3a 43 4c | 4f 53 45 31 30 3a 4f 50 |NT#10:CL|OSE10:OP|
|000005f0| 45 4e 34 2c 34 2c 37 3a | 47 4f 54 4f 39 31 0a 33 |EN4,4,7:|GOTO91.3|
|00000600| 39 20 52 45 4d 20 43 48 | 41 4e 47 45 20 4c 49 4e |9 REM CH|ANGE LIN|
|00000610| 45 20 33 38 20 54 4f 20 | 54 55 52 4e 20 4f 46 46 |E 38 TO |TURN OFF|
|00000620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 43 4f |        |      CO|
|00000630| 4e 44 45 4e 53 45 44 20 | 4d 4f 44 45 20 4f 4e 20 |NDENSED |MODE ON |
|00000640| 59 4f 55 52 20 50 52 49 | 4e 54 45 52 0a 34 30 20 |YOUR PRI|NTER.40 |
|00000650| 5a 3d 31 30 38 3a 4c 3d | 35 35 3a 49 46 46 46 3d |Z=108:L=|55:IFFF=|
|00000660| 31 54 48 45 4e 5a 3d 31 | 32 30 3a 4c 3d 36 30 0a |1THENZ=1|20:L=60.|
|00000670| 34 31 20 49 46 46 46 3d | 31 54 48 45 4e 50 52 49 |41 IFFF=|1THENPRI|
|00000680| 4e 54 23 34 3a 50 52 49 | 4e 54 23 34 3a 50 52 49 |NT#4:PRI|NT#4:PRI|
|00000690| 4e 54 23 34 0a 34 32 20 | 47 4f 53 55 42 38 33 0a |NT#4.42 |GOSUB83.|
|000006a0| 34 33 20 46 4f 52 41 3d | 31 54 4f 5a 3a 41 24 28 |43 FORA=|1TOZ:A$(|
|000006b0| 41 29 3d 22 22 3a 4e 45 | 58 54 3a 41 3d 31 3a 49 |A)="":NE|XT:A=1:I|
|000006c0| 46 46 31 3d 31 54 48 45 | 4e 41 24 28 41 29 3d 41 |FF1=1THE|NA$(A)=A|
|000006d0| 24 28 5a 2b 31 29 3a 41 | 24 28 5a 2b 31 29 3d 22 |$(Z+1):A|$(Z+1)="|
|000006e0| 22 3a 46 31 3d 30 0a 34 | 34 20 46 4c 3d 4c 45 4e |":F1=0.4|4 FL=LEN|
|000006f0| 28 41 24 28 41 29 29 0a | 34 35 20 47 45 54 23 32 |(A$(A)).|45 GET#2|
|00000700| 2c 5a 24 3a 49 46 5a 24 | 3d 43 48 52 24 28 31 33 |,Z$:IFZ$|=CHR$(13|
|00000710| 29 54 48 45 4e 35 30 0a | 34 36 20 49 46 5a 24 3d |)THEN50.|46 IFZ$=|
|00000720| 43 48 52 24 28 33 32 29 | 54 48 45 4e 46 4c 3d 4c |CHR$(32)|THENFL=L|
|00000730| 45 4e 28 41 24 28 41 29 | 29 0a 34 37 20 41 24 28 |EN(A$(A)|).47 A$(|
|00000740| 41 29 3d 41 24 28 41 29 | 2b 5a 24 3a 49 46 4c 45 |A)=A$(A)|+Z$:IFLE|
|00000750| 4e 28 41 24 28 41 29 29 | 3c 34 30 41 4e 44 53 54 |N(A$(A))|<40ANDST|
|00000760| 3d 30 54 48 45 4e 34 35 | 0a 34 38 20 49 46 53 54 |=0THEN45|.48 IFST|
|00000770| 3d 30 54 48 45 4e 41 24 | 28 41 2b 31 29 3d 52 49 |=0THENA$|(A+1)=RI|
|00000780| 47 48 54 24 28 41 24 28 | 41 29 2c 34 30 2d 28 46 |GHT$(A$(|A),40-(F|
|00000790| 4c 2b 31 29 29 3a 41 24 | 28 41 29 3d 4c 45 46 54 |L+1)):A$|(A)=LEFT|
|000007a0| 24 28 41 24 28 41 29 2c | 46 4c 29 0a 34 39 20 49 |$(A$(A),|FL).49 I|
|000007b0| 46 53 54 3d 30 47 4f 54 | 4f 35 32 0a 35 30 20 49 |FST=0GOT|O52.50 I|
|000007c0| 46 53 54 3d 36 34 54 48 | 45 4e 50 52 49 4e 54 41 |FST=64TH|ENPRINTA|
|000007d0| 24 28 41 29 3a 47 4f 54 | 4f 36 30 0a 35 31 20 49 |$(A):GOT|O60.51 I|
|000007e0| 46 53 54 3c 3e 30 54 48 | 45 4e 50 52 49 4e 54 22 |FST<>0TH|ENPRINT"|
|000007f0| 45 52 09 00 52 22 3a 47 | 4f 54 4f 36 30 0a 35 32 |ER..R":G|OTO60.52|
|00000800| 20 50 52 49 4e 54 41 24 | 28 41 29 3a 41 3d 41 2b | PRINTA$|(A):A=A+|
|00000810| 31 3a 49 46 41 3e 5a 54 | 48 45 4e 35 34 0a 35 33 |1:IFA>ZT|HEN54.53|
|00000820| 20 47 4f 54 4f 34 35 0a | 35 34 20 49 46 41 24 28 | GOTO45.|54 IFA$(|
|00000830| 5a 2b 31 29 3c 3e 22 22 | 54 48 45 4e 46 31 3d 31 |Z+1)<>""|THENF1=1|
|00000840| 0a 35 35 20 46 4f 52 49 | 3d 31 54 4f 4c 3a 50 52 |.55 FORI|=1TOL:PR|
|00000850| 49 4e 54 23 34 2c 41 24 | 28 49 29 3b 53 50 43 28 |INT#4,A$|(I);SPC(|
|00000860| 34 31 2d 4c 45 4e 28 41 | 24 28 49 29 29 29 3b 41 |41-LEN(A|$(I)));A|
|00000870| 24 28 49 2b 4c 29 3a 4e | 45 58 54 49 0a 35 36 20 |$(I+L):N|EXTI.56 |
|00000880| 49 46 46 46 3d 31 54 48 | 45 4e 46 4f 52 50 47 3d |IFFF=1TH|ENFORPG=|
|00000890| 31 54 4f 36 3a 50 52 49 | 4e 54 23 34 3a 4e 45 58 |1TO6:PRI|NT#4:NEX|
|000008a0| 54 50 47 3a 47 4f 54 4f | 34 33 0a 35 37 20 50 52 |TPG:GOTO|43.57 PR|
|000008b0| 49 4e 54 3a 50 52 49 4e | 54 22 50 4c 45 41 53 45 |INT:PRIN|T"PLEASE|
|000008c0| 20 53 57 49 54 43 48 20 | 50 41 50 45 52 20 41 4e | SWITCH |PAPER AN|
|000008d0| 44 20 50 52 45 53 53 20 | 41 4e 59 20 4b 45 59 22 |D PRESS |ANY KEY"|
|000008e0| 0a 35 38 20 47 45 54 41 | 4e 24 3a 49 46 41 4e 24 |.58 GETA|N$:IFAN$|
|000008f0| 3d 22 22 54 48 45 4e 35 | 38 0a 35 39 20 47 4f 54 |=""THEN5|8.59 GOT|
|00000900| 4f 34 33 0a 36 30 20 46 | 4f 52 49 3d 31 54 4f 49 |O43.60 F|ORI=1TOI|
|00000910| 4e 54 28 41 2f 32 29 2b | 31 3a 50 52 49 4e 54 23 |NT(A/2)+|1:PRINT#|
|00000920| 34 2c 41 24 28 49 29 3b | 53 50 43 28 34 31 2d 4c |4,A$(I);|SPC(41-L|
|00000930| 45 4e 28 41 24 28 49 29 | 29 29 3b 41 24 28 49 2b |EN(A$(I)|));A$(I+|
|00000940| 28 49 4e 54 28 41 2f 32 | 29 2b 31 29 29 0a 36 31 |(INT(A/2|)+1)).61|
|00000950| 20 4e 45 58 54 49 3a 47 | 4f 54 4f 39 31 0a 36 32 | NEXTI:G|OTO91.62|
|00000960| 20 4c 3d 35 35 3a 49 46 | 46 46 3d 31 54 48 45 4e | L=55:IF|FF=1THEN|
|00000970| 4c 3d 36 30 0a 36 33 20 | 49 46 46 46 3d 31 54 48 |L=60.63 |IFFF=1TH|
|00000980| 45 4e 50 52 49 4e 54 23 | 34 3a 50 52 49 4e 54 23 |ENPRINT#|4:PRINT#|
|00000990| 34 3a 50 52 49 4e 54 23 | 34 0a 36 34 20 47 4f 53 |4:PRINT#|4.64 GOS|
|000009a0| 55 42 38 33 0a 36 35 20 | 46 4f 52 41 3d 31 54 4f |UB83.65 |FORA=1TO|
|000009b0| 4c 3a 41 24 28 41 29 3d | 22 22 3a 4e 45 58 54 3a |L:A$(A)=|"":NEXT:|
|000009c0| 41 3d 31 3a 49 46 46 31 | 3d 31 54 48 45 4e 41 24 |A=1:IFF1|=1THENA$|
|000009d0| 28 41 29 3d 41 24 28 4c | 2b 31 29 3a 41 24 28 4c |(A)=A$(L|+1):A$(L|
|000009e0| 2b 31 29 3d 22 22 3a 46 | 31 3d 30 0a 36 36 20 46 |+1)="":F|1=0.66 F|
|000009f0| 4c 3d 4c 45 4e 28 41 24 | 28 41 29 29 0a 36 37 20 |L=LEN(A$|(A)).67 |
|00000a00| 47 45 54 23 32 2c 5a 24 | 3a 49 46 5a 24 3d 43 48 |GET#2,Z$|:IFZ$=CH|
|00000a10| 52 24 28 31 33 29 54 48 | 45 4e 37 32 0a 36 38 20 |R$(13)TH|EN72.68 |
|00000a20| 49 46 5a 24 3d 43 48 52 | 24 28 33 32 29 54 48 45 |IFZ$=CHR|$(32)THE|
|00000a30| 4e 46 4c 3d 4c 45 4e 28 | 41 24 28 41 29 29 0a 36 |NFL=LEN(|A$(A)).6|
|00000a40| 39 20 41 24 28 41 29 3d | 41 24 28 41 29 2b 5a 24 |9 A$(A)=|A$(A)+Z$|
|00000a50| 3a 49 46 4c 45 4e 28 41 | 24 28 41 29 29 3c 37 30 |:IFLEN(A|$(A))<70|
|00000a60| 41 4e 44 53 54 3d 30 54 | 48 45 4e 36 37 0a 37 30 |ANDST=0T|HEN67.70|
|00000a70| 20 49 46 53 54 3d 30 54 | 48 45 4e 41 24 28 41 2b | IFST=0T|HENA$(A+|
|00000a80| 09 0a 37 31 20 49 46 53 | 54 3d 30 47 4f 54 4f 37 |..71 IFS|T=0GOTO7|
|00000a90| 34 0a 37 32 20 49 46 53 | 54 3d 36 34 54 48 45 4e |4.72 IFS|T=64THEN|
|00000aa0| 50 52 49 4e 54 41 24 28 | 41 29 3a 47 4f 54 4f 38 |PRINTA$(|A):GOTO8|
|00000ab0| 32 0a 37 33 20 49 46 53 | 54 3c 3e 30 54 48 45 4e |2.73 IFS|T<>0THEN|
|00000ac0| 50 52 49 4e 54 22 45 52 | 52 4f 52 22 3a 47 4f 54 |PRINT"ER|ROR":GOT|
|00000ad0| 4f 37 37 0a 37 34 20 50 | 52 49 4e 54 41 24 28 41 |O77.74 P|RINTA$(A|
|00000ae0| 29 3a 41 3d 41 2b 31 3a | 49 46 41 3e 4c 54 48 45 |):A=A+1:|IFA>LTHE|
|00000af0| 4e 37 36 0a 37 35 20 47 | 4f 54 4f 36 37 0a 37 36 |N76.75 G|OTO67.76|
|00000b00| 20 49 46 41 24 28 4c 2b | 31 29 3c 3e 22 22 54 48 | IFA$(L+|1)<>""TH|
|00000b10| 45 4e 46 31 3d 31 0a 37 | 37 20 46 4f 52 49 3d 31 |ENF1=1.7|7 FORI=1|
|00000b20| 54 4f 4c 3a 50 52 49 4e | 54 23 34 2c 22 20 20 20 |TOL:PRIN|T#4,"   |
|00000b30| 20 20 22 3b 41 24 28 49 | 29 3a 4e 45 58 54 49 0a |  ";A$(I|):NEXTI.|
|00000b40| 37 38 20 49 46 46 46 3d | 31 54 48 45 4e 46 4f 52 |78 IFFF=|1THENFOR|
|00000b50| 50 47 3d 31 54 4f 36 3a | 50 52 49 4e 54 23 34 3a |PG=1TO6:|PRINT#4:|
|00000b60| 4e 45 58 54 50 47 3a 47 | 4f 54 4f 36 35 0a 37 39 |NEXTPG:G|OTO65.79|
|00000b70| 20 50 52 49 4e 54 3a 50 | 52 49 4e 54 22 50 4c 45 | PRINT:P|RINT"PLE|
|00000b80| 41 53 45 20 53 57 49 54 | 43 48 20 50 41 50 45 52 |ASE SWIT|CH PAPER|
|00000b90| 20 41 4e 44 20 50 52 45 | 53 53 20 41 4e 59 20 4b | AND PRE|SS ANY K|
|00000ba0| 45 59 22 0a 38 30 20 47 | 45 54 41 4e 24 3a 49 46 |EY".80 G|ETAN$:IF|
|00000bb0| 41 4e 24 3d 22 22 54 48 | 45 4e 38 30 0a 38 31 20 |AN$=""TH|EN80.81 |
|00000bc0| 47 4f 54 4f 36 35 0a 38 | 32 20 46 4f 52 49 3d 31 |GOTO65.8|2 FORI=1|
|00000bd0| 54 4f 41 3a 50 52 49 4e | 54 23 34 2c 22 20 20 20 |TOA:PRIN|T#4,"   |
|00000be0| 20 20 22 3b 41 24 28 49 | 29 3a 4e 45 58 54 49 3a |  ";A$(I|):NEXTI:|
|00000bf0| 47 4f 54 4f 39 31 0a 38 | 33 20 46 4f 52 49 3d 31 |GOTO91.8|3 FORI=1|
|00000c00| 54 4f 32 30 30 3a 41 24 | 28 49 29 3d 22 22 0a 38 |TO200:A$|(I)="".8|
|00000c10| 34 20 49 4e 50 55 54 22 | 46 49 4c 45 4e 41 4d 45 |4 INPUT"|FILENAME|
|00000c20| 22 3b 46 24 0a 38 35 20 | 4f 50 45 4e 32 2c 38 2c |";F$.85 |OPEN2,8,|
|00000c30| 32 2c 22 30 3a 22 2b 46 | 24 2b 22 2c 53 2c 52 22 |2,"0:"+F|$+",S,R"|
|00000c40| 0a 38 36 20 47 4f 53 55 | 42 38 38 0a 38 37 20 52 |.86 GOSU|B88.87 R|
|00000c50| 45 54 55 52 4e 0a 38 38 | 20 49 4e 50 55 54 23 31 |ETURN.88| INPUT#1|
|00000c60| 35 2c 45 4e 2c 45 4d 24 | 2c 45 54 2c 45 53 0a 38 |5,EN,EM$|,ET,ES.8|
|00000c70| 39 20 49 46 45 4e 3e 30 | 54 48 45 4e 50 52 49 4e |9 IFEN>0|THENPRIN|
|00000c80| 54 45 4e 2c 45 4d 24 2c | 45 54 2c 45 53 3a 53 54 |TEN,EM$,|ET,ES:ST|
|00000c90| 4f 50 0a 39 30 20 52 45 | 54 55 52 4e 0a 39 31 20 |OP.90 RE|TURN.91 |
|00000ca0| 50 52 49 4e 54 23 34 3a | 43 4c 4f 53 45 34 3a 43 |PRINT#4:|CLOSE4:C|
|00000cb0| 4c 4f 53 45 32 3a 43 4c | 4f 53 45 31 35 3a 45 4e |LOSE2:CL|OSE15:EN|
|00000cc0| 44 0a 36 36 38 32 20 1a | 1a 1a 1a 1a 1a 1a 1a 1a |D.6682 .|........|
|00000cd0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000ce0| 1a 1a 1a 1a 1a 1a 09 0a |                         |........|        |
+--------+-------------------------+-------------------------+--------+--------+