home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2019-04-13 | 4.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.
| 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%
| gt2
| Kopftext: '100 REM *******************************
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 30 20 52 45 4d 20 | 2a 2a 2a 2a 2a 2a 2a 2a |100 REM |********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 0a | 31 31 30 20 52 45 4d 20 |*******.|110 REM |
|00000030| 2a 2a 46 4f 58 20 56 41 | 4c 4c 45 59 20 27 36 34 |**FOX VA|LLEY '64|
|00000040| 27 20 55 53 45 52 53 20 | 47 52 4f 55 50 2a 2a 0a |' USERS |GROUP**.|
|00000050| 31 32 30 20 52 45 4d 20 | 2a 2a 2a 2a 2a 2a 20 44 |120 REM |****** D|
|00000060| 49 53 4b 20 4a 41 43 4b | 45 54 20 4d 41 4b 45 52 |ISK JACK|ET MAKER|
|00000070| 20 2a 2a 2a 2a 2a 2a 0a | 31 33 30 20 52 45 4d 20 | ******.|130 REM |
|00000080| 2a 2a 2a 2a 2a 2a 20 42 | 59 20 44 41 56 45 20 57 |****** B|Y DAVE W|
|00000090| 4f 4f 54 45 4e 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |OOTEN **|*******.|
|000000a0| 31 34 30 20 52 45 4d 20 | 2a 2a 2a 2a 2a 2a 20 4a |140 REM |****** J|
|000000b0| 55 4c 59 20 33 30 2c 20 | 31 39 38 34 20 2a 2a 2a |ULY 30, |1984 ***|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 0a | 31 35 30 20 52 45 4d 20 |*******.|150 REM |
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |********|*******.|
|000000f0| 31 36 30 20 52 45 4d 3a | 20 46 4f 52 20 4e 4f 4e |160 REM:| FOR NON|
|00000100| 2d 45 50 53 4f 4e 20 54 | 48 52 45 45 20 43 4f 4c |-EPSON T|HREE COL|
|00000110| 55 4d 4e 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |UMN | |
|00000120| 20 4a 41 43 4b 45 54 20 | 43 48 41 4e 47 45 20 50 | JACKET |CHANGE P|
|00000130| 24 20 54 4f 20 43 4f 52 | 52 45 43 54 0a 31 37 30 |$ TO COR|RECT.170|
|00000140| 20 52 45 4d 20 20 50 52 | 49 4e 54 45 52 20 43 4f | REM PR|INTER CO|
|00000150| 4e 54 52 4f 4c 20 43 4f | 44 45 20 49 4e 20 20 20 |NTROL CO|DE IN |
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4c 49 | | LI|
|00000170| 4e 45 20 23 32 34 30 0a | 31 38 30 20 52 45 4d 20 |NE #240.|180 REM |
|00000180| 2a 2a 20 50 52 24 20 20 | 2d 20 50 52 49 4e 54 45 |** PR$ |- PRINTE|
|00000190| 52 20 54 59 50 45 0a 31 | 39 30 20 52 45 4d 20 2a |R TYPE.1|90 REM *|
|000001a0| 2a 20 50 24 20 20 20 2d | 20 50 52 49 4e 54 45 52 |* P$ -| PRINTER|
|000001b0| 20 43 4f 4e 54 52 4f 4c | 20 43 4f 44 45 20 20 3a | CONTROL| CODE :|
|000001c0| 0a 32 30 30 20 44 49 4d | 41 24 28 32 30 30 29 2c |.200 DIM|A$(200),|
|000001d0| 42 24 28 32 30 30 29 2c | 43 24 28 32 30 30 29 0a |B$(200),|C$(200).|
|000001e0| 32 31 30 20 50 4f 4b 45 | 35 33 32 38 30 2c 36 3a |210 POKE|53280,6:|
|000001f0| 50 4f 4b 45 35 33 32 38 | 31 2c 30 0a 32 32 30 20 |POKE5328|1,0.220 |
|00000200| 50 52 49 4e 54 22 05 93 | 11 11 1d 1d 1d 1d 1d 1d |PRINT"..|........|
|00000210| 1d 1d 1d 1d 12 20 44 49 | 53 4b 20 4a 41 43 4b 45 |..... DI|SK JACKE|
|00000220| 54 20 4d 41 4b 45 52 20 | 22 20 20 20 20 22 00 0a |T MAKER |" "..|
|00000230| 32 33 30 20 50 52 49 4e | 54 22 11 11 20 12 45 92 |230 PRIN|T".. .E.|
|00000240| 50 53 4f 4e 20 4f 52 20 | 12 43 92 4f 4d 4d 4f 44 |PSON OR |.C.OMMOD|
|00000250| 4f 52 45 20 50 52 49 4e | 54 45 52 3f 22 3b 0a 32 |ORE PRIN|TER?";.2|
|00000260| 34 30 20 47 45 54 50 52 | 24 3a 49 46 50 52 24 3d |40 GETPR|$:IFPR$=|
|00000270| 22 22 54 48 45 4e 32 34 | 30 0a 32 35 30 20 49 46 |""THEN24|0.250 IF|
|00000280| 50 52 24 3d 22 45 22 54 | 48 45 4e 50 52 49 4e 54 |PR$="E"T|HENPRINT|
|00000290| 22 20 12 20 20 20 45 50 | 53 4f 4e 20 20 20 22 3a |" . EP|SON ":|
|000002a0| 50 24 3d 43 48 52 24 28 | 31 35 29 3a 47 4f 54 4f |P$=CHR$(|15):GOTO|
|000002b0| 32 38 30 0a 32 36 30 20 | 49 46 50 52 24 3d 22 43 |280.260 |IFPR$="C|
|000002c0| 22 54 48 45 4e 50 52 49 | 4e 54 22 20 12 20 43 4f |"THENPRI|NT" . CO|
|000002d0| 4d 4d 4f 44 4f 52 45 20 | 22 3a 47 4f 54 4f 32 38 |MMODORE |":GOTO28|
|000002e0| 30 0a 32 37 30 20 47 4f | 54 4f 32 32 30 0a 32 38 |0.270 GO|TO220.28|
|000002f0| 30 20 50 52 49 4e 54 22 | 11 11 20 12 4f 92 4e 45 |0 PRINT"|.. .O.NE|
|00000300| 20 4f 52 20 12 54 92 57 | 4f 20 44 49 53 4b 20 53 | OR .T.W|O DISK S|
|00000310| 49 44 45 53 3f 22 3b 0a | 32 39 30 20 47 45 54 53 |IDES?";.|290 GETS|
|00000320| 49 24 3a 49 46 53 49 24 | 3d 22 22 54 48 45 4e 32 |I$:IFSI$|=""THEN2|
|00000330| 39 30 0a 33 30 30 20 49 | 46 53 49 24 3d 22 54 22 |90.300 I|FSI$="T"|
|00000340| 54 48 45 4e 50 52 49 4e | 54 22 20 20 20 20 20 20 |THENPRIN|T" |
|00000350| 12 20 54 57 4f 20 53 49 | 44 45 53 20 22 3a 47 4f |. TWO SI|DES ":GO|
|00000360| 54 4f 33 33 30 0a 33 31 | 30 20 49 46 53 49 24 3d |TO330.31|0 IFSI$=|
|00000370| 22 4f 22 54 48 45 4e 50 | 52 49 4e 54 22 20 20 20 |"O"THENP|RINT" |
|00000380| 20 20 20 12 20 4f 4e 45 | 20 53 49 44 45 20 20 22 | . ONE| SIDE "|
|00000390| 3a 47 4f 54 4f 33 33 30 | 0a 33 32 30 20 47 4f 54 |:GOTO330|.320 GOT|
|000003a0| 4f 32 32 30 0a 33 33 30 | 20 50 52 49 4e 54 54 41 |O220.330| PRINTTA|
|000003b0| 42 28 35 29 22 11 11 49 | 4e 53 45 52 54 20 44 49 |B(5)"..I|NSERT DI|
|000003c0| 53 4b 20 41 4e 44 20 50 | 52 45 53 53 20 52 45 54 |SK AND P|RESS RET|
|000003d0| 55 52 4e 22 3b 0a 33 34 | 30 20 47 45 54 52 24 3a |URN";.34|0 GETR$:|
|000003e0| 49 46 52 24 3d 22 22 54 | 48 45 4e 33 34 30 0a 33 |IFR$=""T|HEN340.3|
|000003f0| 35 30 20 50 52 49 4e 54 | 22 93 11 11 11 11 11 11 |50 PRINT|".......|
|00000400| 11 11 1d 1d 1d 1d 1d 1d | 1d 1d 1d 1d 1d 1d 1d 1d |........|........|
|00000410| 1d 1d 12 20 57 4f 52 4b | 49 4e 47 20 22 0a 33 36 |... WORK|ING ".36|
|00000420| 30 20 50 52 49 4e 54 22 | 11 11 11 20 20 20 20 20 |0 PRINT"|... |
|00000430| 20 20 20 20 20 20 44 4f | 20 4e 4f 54 20 54 4f 55 | DO| NOT TOU|
|00000440| 43 48 20 44 52 49 56 45 | 22 0a 33 37 30 20 47 4f |CH DRIVE|".370 GO|
|00000450| 53 55 42 35 30 30 0a 33 | 37 35 20 50 52 49 4e 54 |SUB500.3|75 PRINT|
|00000460| 22 93 11 11 11 11 11 11 | 11 11 1d 1d 1d 1d 1d 1d |".......|........|
|00000470| 1d 1d 1d 1d 1d 1d 1d 1d | 1d 12 20 50 52 49 4e 54 |........|.. PRINT|
|00000480| 49 4e 47 20 22 0a 33 37 | 36 20 50 52 49 4e 54 22 |ING ".37|6 PRINT"|
|00000490| 11 11 11 20 20 20 20 20 | 20 20 20 20 20 44 4f 20 |... | DO |
|000004a0| 4e 4f 54 20 54 4f 55 43 | 48 20 50 52 49 4e 54 45 |NOT TOUC|H PRINTE|
|000004b0| 52 22 0a 33 38 30 20 49 | 46 50 52 24 3d 22 45 22 |R".380 I|FPR$="E"|
|000004c0| 54 48 45 4e 47 4f 53 55 | 42 37 32 30 3a 47 4f 54 |THENGOSU|B720:GOT|
|000004d0| 4f 34 30 30 0a 33 39 30 | 20 47 4f 53 55 42 39 33 |O400.390| GOSUB93|
|000004e0| 30 0a 34 30 30 20 49 46 | 53 49 24 3d 22 4f 22 54 |0.400 IF|SI$="O"T|
|000004f0| 48 45 4e 47 4f 53 55 42 | 31 34 35 30 3a 47 4f 53 |HENGOSUB|1450:GOS|
|00000500| 55 42 31 35 33 30 3a 47 | 4f 54 4f 34 35 30 0a 34 |UB1530:G|OTO450.4|
|00000510| 31 30 20 50 52 49 4e 54 | 22 11 11 11 1d 1d 1d 1d |10 PRINT|".......|
|00000520| 1d 1d 1d 54 55 52 4e 20 | 44 49 53 4b 20 4f 56 45 |...TURN |DISK OVE|
|00000530| 52 20 2d 20 50 52 45 53 | 53 20 52 45 54 55 52 4e |R - PRES|S RETURN|
|00000540| 22 0a 34 32 30 20 47 45 | 54 52 24 3a 49 46 52 24 |".420 GE|TR$:IFR$|
|00000550| 3d 22 22 54 48 45 4e 34 | 32 30 0a 34 33 30 20 50 |=""THEN4|20.430 P|
|00000560| 52 49 4e 54 22 93 11 11 | 11 11 11 11 11 11 1d 1d |RINT"...|........|
|00000570| 1d 1d 1d 1d 1d 1d 1d 1d | 1d 1d 1d 1d 1d 1d 12 20 |........|....... |
|00000580| 57 4f 52 4b 49 4e 47 20 | 22 0a 34 34 30 20 50 52 |WORKING |".440 PR|
|00000590| 49 4e 54 22 11 11 11 1d | 1d 1d 1d 1d 1d 1d 1d 1d |INT"....|........|
|000005a0| 1d 44 4f 20 4e 4f 54 20 | 54 4f 55 43 48 20 44 52 |.DO NOT |TOUCH DR|
|000005b0| 49 56 45 22 3a 47 4f 53 | 55 42 35 30 30 0a 34 34 |IVE":GOS|UB500.44|
|000005c0| 32 20 50 52 49 4e 54 22 | 93 11 11 11 11 11 11 11 |2 PRINT"|........|
|000005d0| 11 1d 1d 1d 1d 1d 1d 1d | 1d 1d 1d 1d 1d 1d 1d 1d |........|........|
|000005e0| 1d 12 20 50 52 49 4e 54 | 49 4e 47 20 22 0a 34 34 |.. PRINT|ING ".44|
|000005f0| 34 20 50 52 49 4e 54 22 | 11 11 11 1d 1d 1d 1d 1d |4 PRINT"|........|
|00000600| 1d 1d 1d 1d 1d 44 4f 20 | 4e 4f 54 20 54 4f 55 43 |.....DO |NOT TOUC|
|00000610| 48 20 50 52 49 4e 54 45 | 52 22 0a 34 34 35 20 47 |H PRINTE|R".445 G|
|00000620| 4f 53 55 42 31 31 34 30 | 3a 47 4f 53 55 42 31 35 |OSUB1140|:GOSUB15|
|00000630| 33 30 0a 34 35 30 20 50 | 52 49 4e 54 22 11 11 11 |30.450 P|RINT"...|
|00000640| 20 20 20 20 20 20 20 20 | 20 20 4d 41 4b 45 20 41 | | MAKE A|
|00000650| 4e 4f 54 48 45 52 20 4a | 41 43 4b 45 54 3f 22 3b |NOTHER J|ACKET?";|
|00000660| 0a 34 36 30 20 47 45 54 | 52 24 3a 49 46 52 24 3d |.460 GET|R$:IFR$=|
|00000670| 22 22 54 48 45 4e 34 36 | 30 0a 34 37 30 20 49 46 |""THEN46|0.470 IF|
|00000680| 52 24 3d 22 59 22 54 48 | 45 4e 52 55 4e 0a 34 38 |R$="Y"TH|ENRUN.48|
|00000690| 30 20 45 4e 44 0a 34 39 | 30 20 52 45 4d 20 20 2a |0 END.49|0 REM *|
|000006a0| 2a 20 47 45 54 20 44 49 | 52 45 43 54 4f 52 59 20 |* GET DI|RECTORY |
|000006b0| 45 4e 54 52 49 45 53 20 | 2a 2a 20 20 20 3a 0a 35 |ENTRIES |** :.5|
|000006c0| 30 30 20 4f 50 45 4e 31 | 2c 38 2c 30 2c 22 24 30 |00 OPEN1|,8,0,"$0|
|000006d0| 22 0a 35 31 30 20 49 3d | 30 3a 4e 24 3d 43 48 52 |".510 I=|0:N$=CHR|
|000006e0| 24 28 30 29 0a 35 32 30 | 20 46 4f 52 4e 3d 31 54 |$(0).520| FORN=1T|
|000006f0| 4f 32 35 3a 53 50 24 3d | 53 50 24 2b 22 20 22 3a |O25:SP$=|SP$+" ":|
|00000700| 4e 45 58 54 0a 35 33 30 | 20 47 45 54 23 31 2c 44 |NEXT.530| GET#1,D|
|00000710| 24 2c 44 24 0a 35 34 30 | 20 3a 0a 35 35 30 20 52 |$,D$.540| :.550 R|
|00000720| 45 4d 20 20 2a 2a 20 42 | 45 47 49 4e 20 4d 41 49 |EM ** B|EGIN MAI|
|00000730| 4e 20 4c 4f 4f 50 20 2a | 2a 0a 35 36 30 20 49 3d |N LOOP *|*.560 I=|
|00000740| 49 2b 31 0a 35 37 30 20 | 47 45 54 23 31 2c 44 24 |I+1.570 |GET#1,D$|
|00000750| 2c 44 24 0a 35 38 30 20 | 3a 0a 35 39 30 20 49 46 |,D$.580 |:.590 IF|
|00000760| 44 24 3d 22 22 54 48 45 | 4e 37 30 30 0a 36 30 30 |D$=""THE|N700.600|
|00000770| 20 3a 0a 36 31 30 20 47 | 45 54 23 31 2c 41 24 28 | :.610 G|ET#1,A$(|
|00000780| 49 29 2c 42 24 28 49 29 | 0a 36 32 30 20 43 24 28 |I),B$(I)|.620 C$(|
|00000790| 49 29 3d 53 54 52 24 28 | 41 53 43 28 41 24 28 49 |I)=STR$(|ASC(A$(I|
|000007a0| 29 2b 4e 24 29 2b 41 53 | 43 28 42 24 28 49 29 2b |)+N$)+AS|C(B$(I)+|
|000007b0| 4e 24 29 2a 32 35 36 29 | 0a 36 33 30 20 3a 0a 36 |N$)*256)|.630 :.6|
|000007c0| 34 30 20 47 45 54 23 31 | 2c 44 24 0a 36 35 30 20 |40 GET#1|,D$.650 |
|000007d0| 3a 0a 36 36 30 20 49 46 | 44 24 3d 22 22 54 48 45 |:.660 IF|D$=""THE|
|000007e0| 4e 35 36 30 0a 36 37 30 | 20 3a 0a 36 38 30 20 43 |N560.670| :.680 C|
|000007f0| 24 28 49 29 3d 43 24 28 | 49 29 2b 44 24 0a 36 39 |$(I)=C$(|I)+D$.69|
|00000800| 30 20 43 24 28 49 29 3d | 4c 45 46 54 24 28 43 24 |0 C$(I)=|LEFT$(C$|
|00000810| 28 49 29 2c 32 35 29 3a | 47 4f 54 4f 36 34 30 0a |(I),25):|GOTO640.|
|00000820| 37 30 30 20 43 4c 4f 53 | 45 31 0a 37 31 30 20 52 |700 CLOS|E1.710 R|
|00000830| 45 54 55 52 4e 0a 37 32 | 30 20 52 45 4d 20 2a 2a |ETURN.72|0 REM **|
|00000840| 2a 20 45 50 53 4f 4e 20 | 50 52 49 4e 54 20 52 4f |* EPSON |PRINT RO|
|00000850| 55 54 49 4e 45 20 2a 2a | 2a 20 20 20 3a 0a 37 33 |UTINE **|* :.73|
|00000860| 30 20 46 4f 52 4e 3d 31 | 54 4f 31 31 38 3a 44 41 |0 FORN=1|TO118:DA|
|00000870| 24 3d 44 41 24 2b 22 2d | 22 3a 4e 45 58 54 0a 37 |$=DA$+"-|":NEXT.7|
|00000880| 34 30 20 46 4f 52 4e 3d | 31 54 4f 37 39 3a 43 4e |40 FORN=|1TO79:CN|
|00000890| 24 3d 43 4e 24 2b 22 20 | 22 3a 4e 45 58 54 0a 37 |$=CN$+" |":NEXT.7|
|000008a0| 35 30 20 46 4f 52 4e 3d | 31 54 4f 39 38 3a 42 4c |50 FORN=|1TO98:BL|
|000008b0| 24 3d 42 4c 24 2b 22 2d | 22 3a 4e 45 58 54 0a 37 |$=BL$+"-|":NEXT.7|
|000008c0| 36 30 20 4c 53 24 3d 22 | 21 20 20 20 20 20 20 20 |60 LS$="|! |
|000008d0| 20 20 21 20 20 20 20 20 | 20 20 20 22 3a 52 53 24 | ! | ":RS$|
|000008e0| 3d 22 20 20 20 20 20 20 | 20 20 20 21 20 20 20 20 |=" | ! |
|000008f0| 20 20 20 20 20 21 22 0a | 37 37 30 20 4f 50 45 4e | !".|770 OPEN|
|00000900| 34 2c 34 0a 37 38 30 20 | 50 52 49 4e 54 23 34 2c |4,4.780 |PRINT#4,|
|00000910| 50 24 3b 44 41 24 3b 22 | 20 20 43 55 54 22 0a 37 |P$;DA$;"| CUT".7|
|00000920| 39 30 20 50 52 49 4e 54 | 23 34 2c 4c 53 24 3b 3a |90 PRINT|#4,LS$;:|
|00000930| 50 52 49 4e 54 23 34 2c | 43 48 52 24 28 31 34 29 |PRINT#4,|CHR$(14)|
|00000940| 52 49 47 48 54 24 28 43 | 24 28 31 29 2c 4c 45 4e |RIGHT$(C|$(1),LEN|
|00000950| 28 43 24 28 31 29 29 2d | 32 29 3b 43 48 52 24 28 |(C$(1))-|2);CHR$(|
|00000960| 32 30 29 3b 0a 38 30 30 | 20 50 52 49 4e 54 23 34 |20);.800| PRINT#4|
|00000970| 2c 50 24 3b 22 53 49 44 | 45 20 31 22 3b 52 49 47 |,P$;"SID|E 1";RIG|
|00000980| 48 54 24 28 52 53 24 2c | 31 38 29 0a 38 31 30 20 |HT$(RS$,|18).810 |
|00000990| 50 52 49 4e 54 23 34 2c | 4c 53 24 3b 43 4e 24 3b |PRINT#4,|LS$;CN$;|
|000009a0| 52 53 24 0a 38 32 30 20 | 46 4f 52 4a 3d 32 54 4f |RS$.820 |FORJ=2TO|
|000009b0| 49 20 53 54 45 50 33 0a | 38 33 30 20 49 46 43 24 |I STEP3.|830 IFC$|
|000009c0| 28 4a 29 3d 22 22 54 48 | 45 4e 43 24 28 4a 29 3d |(J)=""TH|ENC$(J)=|
|000009d0| 53 50 24 0a 38 34 30 20 | 49 46 43 24 28 4a 2b 31 |SP$.840 |IFC$(J+1|
|000009e0| 29 3d 22 22 54 48 45 4e | 43 24 28 4a 2b 31 29 3d |)=""THEN|C$(J+1)=|
|000009f0| 53 50 24 0a 38 35 30 20 | 49 46 43 24 28 4a 2b 32 |SP$.850 |IFC$(J+2|
|00000a00| 29 3d 22 22 54 48 45 4e | 43 24 28 4a 2b 32 29 3d |)=""THEN|C$(J+2)=|
|00000a10| 53 50 24 0a 38 36 30 20 | 50 52 49 4e 54 23 34 2c |SP$.860 |PRINT#4,|
|00000a20| 4c 53 24 3b 43 24 28 4a | 29 3b 22 20 20 22 3b 43 |LS$;C$(J|);" ";C|
|00000a30| 24 28 4a 2b 31 29 3b 22 | 20 20 22 3b 43 24 28 4a |$(J+1);"| ";C$(J|
|00000a40| 2b 32 29 3b 52 53 24 0a | 38 37 30 20 4c 43 3d 4c |+2);RS$.|870 LC=L|
|00000a50| 43 2b 31 0a 38 38 30 20 | 4e 45 58 54 0a 38 39 30 |C+1.880 |NEXT.890|
|00000a60| 20 46 4f 52 4c 3d 31 54 | 4f 32 31 2d 4c 43 3a 50 | FORL=1T|O21-LC:P|
|00000a70| 52 49 4e 54 23 34 2c 4c | 53 24 3b 43 4e 24 3b 52 |RINT#4,L|S$;CN$;R|
|00000a80| 53 24 3a 4e 45 58 54 0a | 39 30 30 20 50 52 49 4e |S$:NEXT.|900 PRIN|
|00000a90| 54 23 34 2c 44 41 24 3b | 22 20 20 20 46 4f 4c 44 |T#4,DA$;|" FOLD|
|00000aa0| 22 0a 39 31 30 20 4c 53 | 24 3d 22 20 20 20 20 20 |".910 LS|$=" |
|00000ab0| 20 20 20 20 20 21 20 20 | 20 20 20 20 20 20 22 3a | ! | ":|
|00000ac0| 52 53 24 3d 22 20 20 20 | 20 20 20 20 20 20 21 22 |RS$=" | !"|
|00000ad0| 0a 39 32 30 20 43 4c 4f | 53 45 34 3a 52 45 54 55 |.920 CLO|SE4:RETU|
|00000ae0| 52 4e 0a 39 33 30 20 52 | 45 4d 20 2a 2a 2a 20 43 |RN.930 R|EM *** C|
|00000af0| 4f 4d 4d 4f 44 4f 52 45 | 20 50 52 49 4e 54 20 52 |OMMODORE| PRINT R|
|00000b00| 4f 55 54 49 4e 45 20 2a | 2a 2a 0a 39 34 30 20 46 |OUTINE *|**.940 F|
|00000b10| 4f 52 4e 3d 31 54 4f 36 | 39 3a 44 41 24 3d 44 41 |ORN=1TO6|9:DA$=DA|
|00000b20| 24 2b 22 2d 22 3a 4e 45 | 58 54 0a 39 35 30 20 46 |$+"-":NE|XT.950 F|
|00000b30| 4f 52 4e 3d 31 54 4f 35 | 32 3a 43 4e 24 3d 43 4e |ORN=1TO5|2:CN$=CN|
|00000b40| 24 2b 22 20 22 3a 4e 45 | 58 54 0a 39 36 30 20 46 |$+" ":NE|XT.960 F|
|00000b50| 4f 52 4e 3d 31 54 4f 35 | 36 3a 42 4c 24 3d 42 4c |ORN=1TO5|6:BL$=BL|
|00000b60| 24 2b 22 2d 22 3a 4e 45 | 58 54 0a 39 37 30 20 4f |$+"-":NE|XT.970 O|
|00000b70| 50 45 4e 34 2c 34 0a 39 | 38 30 20 49 46 43 24 28 |PEN4,4.9|80 IFC$(|
|00000b80| 4a 29 3d 22 22 54 48 45 | 4e 43 24 28 4a 29 3d 53 |J)=""THE|NC$(J)=S|
|00000b90| 50 24 0a 39 39 30 20 50 | 52 49 4e 54 23 34 2c 50 |P$.990 P|RINT#4,P|
|00000ba0| 24 3b 44 41 24 3b 22 20 | 20 43 55 54 22 0a 31 30 |$;DA$;" | CUT".10|
|00000bb0| 30 30 20 4c 53 24 3d 22 | 21 20 20 20 20 20 20 21 |00 LS$="|! !|
|00000bc0| 20 22 3a 52 53 24 3d 22 | 20 21 20 20 20 20 20 21 | ":RS$="| ! !|
|00000bd0| 22 0a 31 30 31 30 20 50 | 52 49 4e 54 23 34 2c 4c |".1010 P|RINT#4,L|
|00000be0| 53 24 3b 3a 50 52 49 4e | 54 23 34 2c 43 48 52 24 |S$;:PRIN|T#4,CHR$|
|00000bf0| 28 31 34 29 52 49 47 48 | 54 24 28 43 24 28 31 29 |(14)RIGH|T$(C$(1)|
|00000c00| 2c 4c 45 4e 28 43 24 28 | 31 29 29 2d 32 29 3b 0a |,LEN(C$(|1))-2);.|
|00000c10| 31 30 32 30 20 50 52 49 | 4e 54 23 34 2c 43 48 52 |1020 PRI|NT#4,CHR|
|00000c20| 24 28 31 35 29 43 48 52 | 24 28 31 34 36 29 22 20 |$(15)CHR|$(146)" |
|00000c30| 53 49 44 45 20 31 20 22 | 52 53 24 0a 31 30 33 30 |SIDE 1 "|RS$.1030|
|00000c40| 20 50 52 49 4e 54 23 34 | 2c 4c 53 24 3b 43 4e 24 | PRINT#4|,LS$;CN$|
|00000c50| 3b 52 53 24 0a 31 30 34 | 30 20 46 4f 52 4a 3d 32 |;RS$.104|0 FORJ=2|
|00000c60| 54 4f 49 20 53 54 45 50 | 32 0a 31 30 35 30 20 49 |TOI STEP|2.1050 I|
|00000c70| 46 43 24 28 4a 29 3d 22 | 22 54 48 45 4e 43 24 28 |FC$(J)="|"THENC$(|
|00000c80| 4a 29 3d 53 50 24 0a 31 | 30 36 30 20 49 46 43 24 |J)=SP$.1|060 IFC$|
|00000c90| 28 4a 2b 31 29 3d 22 22 | 54 48 45 4e 43 24 28 4a |(J+1)=""|THENC$(J|
|00000ca0| 2b 31 29 3d 53 50 24 0a | 31 30 37 30 20 50 52 49 |+1)=SP$.|1070 PRI|
|00000cb0| 4e 54 23 34 2c 4c 53 24 | 3b 43 24 28 4a 29 3b 22 |NT#4,LS$|;C$(J);"|
|00000cc0| 20 20 22 3b 43 24 28 4a | 2b 31 29 3b 52 53 24 0a | ";C$(J|+1);RS$.|
|00000cd0| 31 30 38 30 20 4c 43 3d | 4c 43 2b 31 0a 31 30 39 |1080 LC=|LC+1.109|
|00000ce0| 30 20 4e 45 58 54 0a 31 | 31 30 30 20 46 4f 52 4c |0 NEXT.1|100 FORL|
|00000cf0| 3d 31 54 4f 32 31 2d 4c | 43 3a 50 52 49 4e 54 23 |=1TO21-L|C:PRINT#|
|00000d00| 34 2c 4c 53 24 3b 43 4e | 24 3b 52 53 24 3a 4e 45 |4,LS$;CN|$;RS$:NE|
|00000d10| 58 54 0a 31 31 31 30 20 | 50 52 49 4e 54 23 34 2c |XT.1110 |PRINT#4,|
|00000d20| 44 41 24 3b 22 20 20 20 | 46 4f 4c 44 22 0a 31 31 |DA$;" |FOLD".11|
|00000d30| 32 30 20 4c 53 24 3d 22 | 20 20 20 20 20 20 20 21 |20 LS$="| !|
|00000d40| 22 3a 52 53 24 3d 22 20 | 20 21 22 0a 31 31 33 30 |":RS$=" | !".1130|
|00000d50| 20 43 4c 4f 53 45 34 3a | 52 45 54 55 52 4e 0a 31 | CLOSE4:|RETURN.1|
|00000d60| 31 34 30 20 52 45 4d 20 | 2a 2a 2a 20 53 49 44 45 |140 REM |*** SIDE|
|00000d70| 20 32 20 50 52 49 4e 54 | 20 52 4f 55 54 49 4e 45 | 2 PRINT| ROUTINE|
|00000d80| 20 2a 2a 2a 20 20 3a 0a | 31 31 35 30 20 4c 43 3d | *** :.|1150 LC=|
|00000d90| 30 0a 31 31 36 30 20 49 | 46 50 52 24 3d 22 45 22 |0.1160 I|FPR$="E"|
|00000da0| 54 48 45 4e 31 32 39 30 | 0a 31 31 37 30 20 4f 50 |THEN1290|.1170 OP|
|00000db0| 45 4e 34 2c 34 3a 50 52 | 49 4e 54 23 34 2c 4c 53 |EN4,4:PR|INT#4,LS|
|00000dc0| 24 3b 43 4e 24 3b 52 53 | 24 0a 31 31 38 30 20 50 |$;CN$;RS|$.1180 P|
|00000dd0| 52 49 4e 54 23 34 2c 4c | 53 24 3b 3a 50 52 49 4e |RINT#4,L|S$;:PRIN|
|00000de0| 54 23 34 2c 43 48 52 24 | 28 31 34 29 52 49 47 48 |T#4,CHR$|(14)RIGH|
|00000df0| 54 24 28 43 24 28 31 29 | 2c 4c 45 4e 28 43 24 28 |T$(C$(1)|,LEN(C$(|
|00000e00| 31 29 29 2d 32 29 3b 0a | 31 31 39 30 20 50 52 49 |1))-2);.|1190 PRI|
|00000e10| 4e 54 23 34 2c 43 48 52 | 24 28 31 35 29 3b 43 48 |NT#4,CHR|$(15);CH|
|00000e20| 52 24 28 31 34 36 29 22 | 20 53 49 44 45 20 32 20 |R$(146)"| SIDE 2 |
|00000e30| 22 52 53 24 0a 31 32 30 | 30 20 50 52 49 4e 54 23 |"RS$.120|0 PRINT#|
|00000e40| 34 2c 4c 53 24 3b 43 4e | 24 3b 52 53 24 0a 31 32 |4,LS$;CN|$;RS$.12|
|00000e50| 31 30 20 46 4f 52 4a 3d | 32 54 4f 49 20 53 54 45 |10 FORJ=|2TOI STE|
|00000e60| 50 32 0a 31 32 32 30 20 | 49 46 43 24 28 4a 2b 31 |P2.1220 |IFC$(J+1|
|00000e70| 29 3d 22 22 54 48 45 4e | 43 24 28 4a 2b 31 29 3d |)=""THEN|C$(J+1)=|
|00000e80| 53 50 24 0a 31 32 33 30 | 20 50 52 49 4e 54 23 34 |SP$.1230| PRINT#4|
|00000e90| 2c 4c 53 24 3b 43 24 28 | 4a 29 3b 22 20 20 22 3b |,LS$;C$(|J);" ";|
|00000ea0| 43 24 28 4a 2b 31 29 3b | 52 53 24 0a 31 32 34 30 |C$(J+1);|RS$.1240|
|00000eb0| 20 4c 43 3d 4c 43 2b 31 | 0a 31 32 35 30 20 4e 45 | LC=LC+1|.1250 NE|
|00000ec0| 58 54 0a 31 32 36 30 20 | 46 4f 52 4c 3d 31 54 4f |XT.1260 |FORL=1TO|
|00000ed0| 32 35 2d 4c 43 3a 50 52 | 49 4e 54 23 34 2c 4c 53 |25-LC:PR|INT#4,LS|
|00000ee0| 24 3b 43 4e 24 3b 52 53 | 24 3a 4e 45 58 54 0a 31 |$;CN$;RS|$:NEXT.1|
|00000ef0| 32 37 30 20 50 52 49 4e | 54 23 34 2c 54 41 42 28 |270 PRIN|T#4,TAB(|
|00000f00| 37 29 3b 3a 50 52 49 4e | 54 23 34 2c 42 4c 24 3b |7);:PRIN|T#4,BL$;|
|00000f10| 22 20 20 20 43 55 54 22 | 0a 31 32 38 30 20 50 52 |" CUT"|.1280 PR|
|00000f20| 49 4e 54 23 34 3a 43 4c | 4f 53 45 34 3a 47 4f 54 |INT#4:CL|OSE4:GOT|
|00000f30| 4f 31 34 34 30 0a 31 32 | 39 30 20 52 45 4d 20 20 |O1440.12|90 REM |
|00000f40| 2a 2a 2a 20 45 50 53 4f | 4e 20 53 49 44 45 20 32 |*** EPSO|N SIDE 2|
|00000f50| 20 2a 2a 2a 20 20 20 20 | 20 20 20 20 20 3a 0a 31 | *** | :.1|
|00000f60| 33 30 30 20 4f 50 45 4e | 34 2c 34 3a 50 52 49 4e |300 OPEN|4,4:PRIN|
|00000f70| 54 23 34 2c 4c 53 24 3b | 43 4e 24 3b 52 53 24 0a |T#4,LS$;|CN$;RS$.|
|00000f80| 31 33 31 30 20 50 52 49 | 4e 54 23 34 2c 4c 53 24 |1310 PRI|NT#4,LS$|
|00000f90| 3b 3a 50 52 49 4e 54 23 | 34 2c 43 48 52 24 28 31 |;:PRINT#|4,CHR$(1|
|00000fa0| 34 29 52 49 47 48 54 24 | 28 43 24 28 31 29 2c 4c |4)RIGHT$|(C$(1),L|
|00000fb0| 45 4e 28 43 24 28 31 29 | 29 2d 32 29 3b 43 48 52 |EN(C$(1)|)-2);CHR|
|00000fc0| 24 28 32 30 29 3b 0a 31 | 33 32 30 20 50 52 49 4e |$(20);.1|320 PRIN|
|00000fd0| 54 23 34 2c 50 24 3b 22 | 53 49 44 45 20 32 22 3b |T#4,P$;"|SIDE 2";|
|00000fe0| 52 49 47 48 54 24 28 52 | 53 24 2c 31 38 29 0a 31 |RIGHT$(R|S$,18).1|
|00000ff0| 33 33 30 20 50 52 49 4e | 54 23 34 2c 4c 53 24 3b |330 PRIN|T#4,LS$;|
|00001000| 43 4e 24 3b 52 53 24 0a | 31 33 34 30 20 46 4f 52 |CN$;RS$.|1340 FOR|
|00001010| 4a 3d 32 54 4f 49 20 53 | 54 45 50 33 0a 31 33 35 |J=2TOI S|TEP3.135|
|00001020| 30 20 49 46 43 24 28 4a | 29 3d 22 22 54 48 45 4e |0 IFC$(J|)=""THEN|
|00001030| 43 24 28 4a 29 3d 53 50 | 24 0a 31 33 36 30 20 49 |C$(J)=SP|$.1360 I|
|00001040| 46 43 24 28 4a 2b 31 29 | 3d 22 22 54 48 45 4e 43 |FC$(J+1)|=""THENC|
|00001050| 24 28 4a 2b 31 29 3d 53 | 50 24 0a 31 33 37 30 20 |$(J+1)=S|P$.1370 |
|00001060| 49 46 43 24 28 4a 2b 32 | 29 3d 22 22 54 48 45 4e |IFC$(J+2|)=""THEN|
|00001070| 43 24 28 4a 2b 32 29 3d | 53 50 24 0a 31 33 38 30 |C$(J+2)=|SP$.1380|
|00001080| 20 50 52 49 4e 54 23 34 | 2c 4c 53 24 3b 43 24 28 | PRINT#4|,LS$;C$(|
|00001090| 4a 29 3b 22 20 20 22 3b | 43 24 28 4a 2b 31 29 3b |J);" ";|C$(J+1);|
|000010a0| 22 20 20 22 3b 43 24 28 | 4a 2b 32 29 3b 52 53 24 |" ";C$(|J+2);RS$|
|000010b0| 0a 31 33 39 30 20 4c 43 | 3d 4c 43 2b 31 0a 31 34 |.1390 LC|=LC+1.14|
|000010c0| 30 30 20 4e 45 58 54 0a | 31 34 31 30 20 46 4f 52 |00 NEXT.|1410 FOR|
|000010d0| 4c 3d 31 54 4f 32 35 2d | 4c 43 3a 50 52 49 4e 54 |L=1TO25-|LC:PRINT|
|000010e0| 23 34 2c 4c 53 24 3b 43 | 4e 24 3b 52 53 24 3a 4e |#4,LS$;C|N$;RS$:N|
|000010f0| 45 58 54 0a 31 34 32 30 | 20 50 52 49 4e 54 23 34 |EXT.1420| PRINT#4|
|00001100| 2c 54 41 42 28 31 30 29 | 3b 3a 50 52 49 4e 54 23 |,TAB(10)|;:PRINT#|
|00001110| 34 2c 42 4c 24 3b 22 20 | 20 20 43 55 54 22 0a 31 |4,BL$;" | CUT".1|
|00001120| 34 33 30 20 50 52 49 4e | 54 23 34 3a 43 4c 4f 53 |430 PRIN|T#4:CLOS|
|00001130| 45 34 0a 31 34 34 30 20 | 52 45 54 55 52 4e 0a 31 |E4.1440 |RETURN.1|
|00001140| 34 35 30 20 52 45 4d 20 | 20 2a 2a 2a 20 42 4c 41 |450 REM | *** BLA|
|00001150| 4e 4b 20 53 49 44 45 20 | 32 20 2a 2a 2a 0a 31 34 |NK SIDE |2 ***.14|
|00001160| 36 30 20 4f 50 45 4e 34 | 2c 34 0a 31 34 37 30 20 |60 OPEN4|,4.1470 |
|00001170| 46 4f 52 43 3d 31 54 4f | 32 37 3a 50 52 49 4e 54 |FORC=1TO|27:PRINT|
|00001180| 23 34 2c 4c 53 24 3b 43 | 4e 24 3b 52 53 24 3a 4e |#4,LS$;C|N$;RS$:N|
|00001190| 45 58 54 0a 31 34 38 30 | 20 49 46 50 52 24 3d 22 |EXT.1480| IFPR$="|
|000011a0| 45 22 54 48 45 4e 31 35 | 30 30 0a 31 34 39 30 20 |E"THEN15|00.1490 |
|000011b0| 50 52 49 4e 54 23 34 2c | 22 20 20 20 20 20 20 20 |PRINT#4,|" |
|000011c0| 22 42 4c 24 3b 22 20 20 | 20 43 55 54 22 3a 47 4f |"BL$;" | CUT":GO|
|000011d0| 54 4f 31 35 31 30 0a 31 | 35 30 30 20 50 52 49 4e |TO1510.1|500 PRIN|
|000011e0| 54 23 34 2c 54 41 42 28 | 31 30 29 3b 3a 50 52 49 |T#4,TAB(|10);:PRI|
|000011f0| 4e 54 23 34 2c 42 4c 24 | 3b 22 20 20 20 43 55 54 |NT#4,BL$|;" CUT|
|00001200| 22 0a 31 35 31 30 20 50 | 52 49 4e 54 23 34 3a 43 |".1510 P|RINT#4:C|
|00001210| 4c 4f 53 45 34 0a 31 35 | 32 30 20 52 45 54 55 52 |LOSE4.15|20 RETUR|
|00001220| 4e 0a 31 35 33 30 20 52 | 45 4d 20 2a 2a 20 46 4f |N.1530 R|EM ** FO|
|00001230| 52 4d 20 46 45 45 44 20 | 2a 2a 20 20 20 20 20 20 |RM FEED |** |
|00001240| 20 20 20 20 20 20 20 20 | 20 3a 0a 31 35 34 30 20 | | :.1540 |
|00001250| 4f 50 45 4e 34 2c 34 3a | 50 52 49 4e 54 23 34 2c |OPEN4,4:|PRINT#4,|
|00001260| 43 48 52 24 28 31 32 29 | 3a 43 4c 4f 53 45 34 0a |CHR$(12)|:CLOSE4.|
|00001270| 31 35 35 30 20 52 45 54 | 55 52 4e 0a 38 32 32 34 |1550 RET|URN.8224|
|00001280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000012a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000012b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000012c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000012d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 0a | | . |
+--------+-------------------------+-------------------------+--------+--------+
