/ Nibble Magazine / nib28b.dsk / FORMS.SHOP.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 20 52 45 4d 20 | 2a 2a 2a 2a 2a 2a 2a 38 |10  REM |*******8|
|00000010| 2e 31 2e 38 36 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 32 |.1.86***|******.2|
|00000020| 30 20 20 52 45 4d 20 2a | 20 20 20 20 20 46 4f 52 |0  REM *|     FOR|
|00000030| 4d 53 2e 53 48 4f 50 20 | 20 20 20 20 2a 0a 33 30 |MS.SHOP |    *.30|
|00000040| 20 20 52 45 4d 20 2a 20 | 42 59 20 50 41 55 4c 20 |  REM * |BY PAUL |
|00000050| 53 2e 20 44 55 4e 53 45 | 41 54 48 2a 0a 34 30 20 |S. DUNSE|ATH*.40 |
|00000060| 20 52 45 4d 20 2a 20 43 | 4f 50 59 52 49 47 48 54 | REM * C|OPYRIGHT|
|00000070| 20 28 43 29 20 31 39 38 | 36 20 2a 0a 35 30 20 20 | (C) 198|6 *.50  |
|00000080| 52 45 4d 20 2a 20 42 59 | 20 4d 49 43 52 4f 53 50 |REM * BY| MICROSP|
|00000090| 41 52 43 2c 20 49 4e 43 | 20 2a 0a 36 30 20 20 52 |ARC, INC| *.60  R|
|000000a0| 45 4d 20 2a 20 43 4f 4e | 43 4f 52 44 2c 20 4d 41 |EM * CON|CORD, MA|
|000000b0| 20 20 30 31 37 34 32 20 | 2a 0a 37 30 20 20 52 45 |  01742 |*.70  RE|
|000000c0| 4d 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |M ******|********|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 38 30 20 20 48 4f 4d |********|.80  HOM|
|000000e0| 45 20 3a 20 56 54 41 42 | 20 31 30 3a 20 48 54 41 |E : VTAB| 10: HTA|
|000000f0| 42 20 31 33 3a 20 49 4e | 56 45 52 53 45 20 3a 20 |B 13: IN|VERSE : |
|00000100| 50 52 49 4e 54 20 22 54 | 48 45 20 46 4f 52 4d 53 |PRINT "T|HE FORMS|
|00000110| 20 53 48 4f 50 22 3a 20 | 4e 4f 52 4d 41 4c 20 3a | SHOP": |NORMAL :|
|00000120| 20 50 52 49 4e 54 20 3a | 53 54 24 20 3d 20 22 42 | PRINT :|ST$ = "B|
|00000130| 59 20 20 50 41 55 4c 20 | 53 2e 20 44 55 4e 53 45 |Y  PAUL |S. DUNSE|
|00000140| 41 54 48 22 3a 20 47 4f | 53 55 42 20 31 34 37 30 |ATH": GO|SUB 1470|
|00000150| 0a 39 30 20 20 56 54 41 | 42 20 32 30 3a 20 50 52 |.90  VTA|B 20: PR|
|00000160| 49 4e 54 20 22 2a 43 4f | 50 59 52 49 47 48 54 20 |INT "*CO|PYRIGHT |
|00000170| 28 43 29 20 31 39 38 36 | 20 42 59 20 4d 49 43 52 |(C) 1986| BY MICR|
|00000180| 4f 53 50 41 52 43 2c 20 | 49 4e 43 2e 2a 22 3a 20 |OSPARC, |INC.*": |
|00000190| 47 4f 53 55 42 20 31 39 | 39 30 3a 20 47 4f 53 55 |GOSUB 19|90: GOSU|
|000001a0| 42 20 32 30 35 30 0a 31 | 30 30 20 20 56 54 41 42 |B 2050.1|00  VTAB|
|000001b0| 20 31 3a 20 48 54 41 42 | 20 31 33 3a 20 49 4e 56 | 1: HTAB| 13: INV|
|000001c0| 45 52 53 45 20 3a 20 50 | 52 49 4e 54 20 22 54 48 |ERSE : P|RINT "TH|
|000001d0| 45 20 46 4f 52 4d 53 20 | 53 48 4f 50 22 3a 20 4e |E FORMS |SHOP": N|
|000001e0| 4f 52 4d 41 4c 20 3a 20 | 50 4f 4b 45 20 33 34 2c |ORMAL : |POKE 34,|
|000001f0| 31 0a 31 31 30 20 20 4f | 4e 45 52 52 20 20 47 4f |1.110  O|NERR  GO|
|00000200| 54 4f 20 31 38 38 30 0a | 31 32 30 20 20 52 45 4d |TO 1880.|120  REM|
|00000210| 20 0a 31 33 30 20 20 52 | 45 4d 20 20 20 20 20 20 | .130  R|EM      |
|00000220| 53 45 54 20 55 50 0a 31 | 34 30 20 20 52 45 4d 20 |SET UP.1|40  REM |
|00000230| 0a 31 35 30 20 4e 43 20 | 3d 20 35 3a 20 44 49 4d |.150 NC |= 5: DIM|
|00000240| 20 4c 28 35 35 29 2c 4c | 45 28 35 35 29 2c 4d 28 | L(55),L|E(55),M(|
|00000250| 35 35 29 2c 59 28 35 35 | 29 2c 54 24 28 35 35 29 |55),Y(55|),T$(55)|
|00000260| 2c 45 24 28 35 35 29 2c | 58 28 35 35 29 2c 50 43 |,E$(55),|X(55),PC|
|00000270| 24 28 4e 43 2c 31 29 2c | 50 4e 24 28 4e 43 29 2c |$(NC,1),|PN$(NC),|
|00000280| 4c 4c 28 4e 43 29 0a 31 | 36 30 20 20 52 45 4d 20 |LL(NC).1|60  REM |
|00000290| 0a 31 37 30 20 20 52 45 | 4d 20 44 49 53 4b 20 41 |.170  RE|M DISK A|
|000002a0| 4e 44 20 50 52 49 4e 54 | 45 52 20 43 4f 4d 4d 41 |ND PRINT|ER COMMA|
|000002b0| 4e 44 53 0a 31 38 30 20 | 20 52 45 4d 20 0a 31 39 |NDS.180 | REM .19|
|000002c0| 30 20 44 24 20 3d 20 20 | 43 48 52 24 28 34 29 3a |0 D$ =  |CHR$(4):|
|000002d0| 43 52 24 20 3d 20 20 43 | 48 52 24 28 31 33 29 3a |CR$ =  C|HR$(13):|
|000002e0| 42 53 24 20 3d 20 20 43 | 48 52 24 28 38 29 3a 45 |BS$ =  C|HR$(8):E|
|000002f0| 58 24 20 3d 20 20 43 48 | 52 24 28 32 37 29 3a 42 |X$ =  CH|R$(27):B|
|00000300| 4c 24 20 3d 20 20 43 48 | 52 24 28 37 29 3a 20 52 |L$ =  CH|R$(7): R|
|00000310| 45 4d 20 43 4f 4d 4d 4f | 4e 4c 59 20 55 53 45 44 |EM COMMO|NLY USED|
|00000320| 20 43 4f 4e 54 52 4f 4c | 20 43 48 41 52 53 0a 32 | CONTROL| CHARS.2|
|00000330| 30 30 20 50 43 24 28 31 | 2c 31 29 20 3d 20 45 58 |00 PC$(1|,1) = EX|
|00000340| 24 20 2b 22 50 22 3a 50 | 43 24 28 31 2c 30 29 20 |$ +"P":P|C$(1,0) |
|00000350| 3d 20 22 22 3a 4c 4c 28 | 31 29 20 3d 20 38 30 3a |= "":LL(|1) = 80:|
|00000360| 50 4e 24 28 31 29 20 3d | 20 22 4e 4f 52 4d 41 4c |PN$(1) =| "NORMAL|
|00000370| 22 0a 32 31 30 20 50 43 | 24 28 32 2c 31 29 20 3d |".210 PC|$(2,1) =|
|00000380| 20 20 43 48 52 24 28 31 | 34 29 3a 50 43 24 28 32 |  CHR$(1|4):PC$(2|
|00000390| 2c 30 29 20 3d 20 20 43 | 48 52 24 28 32 30 29 3a |,0) =  C|HR$(20):|
|000003a0| 4c 4c 28 32 29 20 3d 20 | 34 30 3a 50 4e 24 28 32 |LL(2) = |40:PN$(2|
|000003b0| 29 20 3d 20 22 45 58 50 | 41 4e 44 45 44 22 0a 32 |) = "EXP|ANDED".2|
|000003c0| 32 30 20 50 43 24 28 33 | 2c 31 29 20 3d 20 20 43 |20 PC$(3|,1) =  C|
|000003d0| 48 52 24 28 31 35 29 3a | 50 43 24 28 33 2c 30 29 |HR$(15):|PC$(3,0)|
|000003e0| 20 3d 20 20 43 48 52 24 | 28 31 38 29 3a 4c 4c 28 | =  CHR$|(18):LL(|
|000003f0| 33 29 20 3d 20 31 33 36 | 3a 50 4e 24 28 33 29 20 |3) = 136|:PN$(3) |
|00000400| 3d 20 22 43 4f 4d 50 52 | 45 53 53 45 44 22 0a 32 |= "COMPR|ESSED".2|
|00000410| 33 30 20 50 43 24 28 34 | 2c 31 29 20 3d 20 45 58 |30 PC$(4|,1) = EX|
|00000420| 24 20 2b 22 34 22 3a 50 | 43 24 28 34 2c 30 29 20 |$ +"4":P|C$(4,0) |
|00000430| 3d 20 45 58 24 20 2b 22 | 35 22 3a 4c 4c 28 34 29 |= EX$ +"|5":LL(4)|
|00000440| 20 3d 20 38 30 3a 50 4e | 24 28 34 29 20 3d 20 22 | = 80:PN|$(4) = "|
|00000450| 49 54 41 4c 49 43 53 22 | 0a 32 34 30 20 50 43 24 |ITALICS"|.240 PC$|
|00000460| 28 35 2c 31 29 20 3d 20 | 45 58 24 20 2b 22 2d 31 |(5,1) = |EX$ +"-1|
|00000470| 22 3a 50 43 24 28 35 2c | 30 29 20 3d 20 45 58 24 |":PC$(5,|0) = EX$|
|00000480| 20 2b 22 2d 30 22 3a 4c | 4c 28 35 29 20 3d 20 38 | +"-0":L|L(5) = 8|
|00000490| 30 3a 50 4e 24 28 35 29 | 20 3d 20 22 55 4e 44 45 |0:PN$(5)| = "UNDE|
|000004a0| 52 4c 49 4e 45 44 22 0a | 32 35 30 20 42 31 24 20 |RLINED".|250 B1$ |
|000004b0| 3d 20 45 58 24 20 2b 22 | 47 22 3a 42 5a 24 20 3d |= EX$ +"|G":BZ$ =|
|000004c0| 20 45 58 24 20 2b 22 48 | 22 3a 20 52 45 4d 20 20 | EX$ +"H|": REM  |
|000004d0| 42 4f 4c 44 46 41 43 45 | 0a 32 36 30 20 20 52 45 |BOLDFACE|.260  RE|
|000004e0| 4d 20 0a 32 37 30 20 20 | 52 45 4d 20 20 20 4d 41 |M .270  |REM   MA|
|000004f0| 49 4e 20 50 52 4f 47 52 | 41 4d 0a 32 38 30 20 20 |IN PROGR|AM.280  |
|00000500| 52 45 4d 20 0a 32 39 30 | 20 20 48 4f 4d 45 20 3a |REM .290|  HOME :|
|00000510| 20 50 4f 4b 45 20 20 2d | 31 36 33 36 38 2c 30 3a | POKE  -|16368,0:|
|00000520| 20 56 54 41 42 20 31 30 | 3a 20 50 52 49 4e 54 20 | VTAB 10|: PRINT |
|00000530| 22 45 4e 54 45 52 20 53 | 4c 4f 54 20 4e 55 4d 42 |"ENTER S|LOT NUMB|
|00000540| 45 52 20 46 4f 52 20 59 | 4f 55 52 22 3a 20 50 52 |ER FOR Y|OUR": PR|
|00000550| 49 4e 54 20 22 20 46 4f | 52 4d 41 54 20 44 49 53 |INT " FO|RMAT DIS|
|00000560| 4b 20 28 31 2d 37 29 3a | 20 3c 36 3e 22 3b 42 53 |K (1-7):| <6>";BS|
|00000570| 24 3b 42 53 24 3b 3a 20 | 47 45 54 20 53 4c 24 3a |$;BS$;: |GET SL$:|
|00000580| 20 49 46 20 53 4c 24 20 | 3d 20 43 52 24 20 20 54 | IF SL$ |= CR$  T|
|00000590| 48 45 4e 20 53 4c 24 20 | 3d 20 22 36 22 0a 33 30 |HEN SL$ |= "6".30|
|000005a0| 30 20 53 4c 20 3d 20 20 | 56 41 4c 28 53 4c 24 29 |0 SL =  |VAL(SL$)|
|000005b0| 3a 20 56 54 41 42 20 31 | 31 3a 20 48 54 41 42 20 |: VTAB 1|1: HTAB |
|000005c0| 32 32 3a 20 50 52 49 4e | 54 20 53 4c 24 0a 33 31 |22: PRIN|T SL$.31|
|000005d0| 30 20 20 49 46 20 28 53 | 4c 20 3c 31 29 20 20 4f |0  IF (S|L <1)  O|
|000005e0| 52 20 28 53 4c 20 3e 37 | 29 20 20 54 48 45 4e 20 |R (SL >7|)  THEN |
|000005f0| 20 50 52 49 4e 54 20 42 | 4c 24 3b 42 4c 24 3b 3a | PRINT B|L$;BL$;:|
|00000600| 20 47 4f 54 4f 20 32 39 | 30 0a 33 32 30 20 20 56 | GOTO 29|0.320  V|
|00000610| 54 41 42 20 31 34 3a 20 | 48 54 41 42 20 31 3a 20 |TAB 14: |HTAB 1: |
|00000620| 50 4f 4b 45 20 20 2d 31 | 36 33 36 38 2c 30 3a 20 |POKE  -1|6368,0: |
|00000630| 43 41 4c 4c 20 20 2d 39 | 35 38 3a 20 50 52 49 4e |CALL  -9|58: PRIN|
|00000640| 54 20 22 45 4e 54 45 52 | 20 44 52 49 56 45 20 4e |T "ENTER| DRIVE N|
|00000650| 55 4d 42 45 52 20 46 4f | 52 20 59 4f 55 52 22 3a |UMBER FO|R YOUR":|
|00000660| 20 50 52 49 4e 54 20 22 | 20 46 4f 52 4d 41 54 20 | PRINT "| FORMAT |
|00000670| 44 49 53 4b 20 28 31 2d | 32 29 3a 20 3c 31 3e 22 |DISK (1-|2): <1>"|
|00000680| 3b 42 53 24 3b 42 53 24 | 3b 3a 20 47 45 54 20 44 |;BS$;BS$|;: GET D|
|00000690| 52 24 3a 20 49 46 20 44 | 52 24 20 3d 20 43 52 24 |R$: IF D|R$ = CR$|
|000006a0| 20 20 54 48 45 4e 20 44 | 52 24 20 3d 20 22 31 22 |  THEN D|R$ = "1"|
|000006b0| 0a 33 33 30 20 44 52 20 | 3d 20 20 56 41 4c 28 44 |.330 DR |=  VAL(D|
|000006c0| 52 24 29 3a 20 56 54 41 | 42 20 31 35 3a 20 48 54 |R$): VTA|B 15: HT|
|000006d0| 41 42 20 32 32 3a 20 50 | 52 49 4e 54 20 44 52 24 |AB 22: P|RINT DR$|
|000006e0| 0a 33 34 30 20 20 49 46 | 20 44 52 20 3c 31 20 20 |.340  IF| DR <1  |
|000006f0| 4f 52 20 44 52 20 3e 32 | 20 20 54 48 45 4e 20 20 |OR DR >2|  THEN  |
|00000700| 50 52 49 4e 54 20 42 4c | 24 3b 42 4c 24 3b 3a 20 |PRINT BL|$;BL$;: |
|00000710| 47 4f 54 4f 20 33 32 30 | 0a 33 35 30 20 20 56 54 |GOTO 320|.350  VT|
|00000720| 41 42 20 31 37 3a 20 48 | 54 41 42 20 31 3a 20 50 |AB 17: H|TAB 1: P|
|00000730| 4f 4b 45 20 20 2d 31 36 | 33 36 38 2c 30 3a 20 43 |OKE  -16|368,0: C|
|00000740| 41 4c 4c 20 20 2d 39 35 | 38 3a 20 50 52 49 4e 54 |ALL  -95|8: PRINT|
|00000750| 20 22 45 4e 54 45 52 20 | 53 4c 4f 54 20 4e 55 4d | "ENTER |SLOT NUM|
|00000760| 42 45 52 20 46 4f 52 20 | 59 4f 55 52 22 3a 20 50 |BER FOR |YOUR": P|
|00000770| 52 49 4e 54 20 22 20 50 | 52 49 4e 54 45 52 20 49 |RINT " P|RINTER I|
|00000780| 4e 54 45 52 46 41 43 45 | 20 28 31 2d 37 29 3a 20 |NTERFACE| (1-7): |
|00000790| 3c 31 3e 22 3b 42 53 24 | 3b 42 53 24 3b 3a 20 47 |<1>";BS$|;BS$;: G|
|000007a0| 45 54 20 50 53 24 3a 20 | 49 46 20 50 53 24 20 3d |ET PS$: |IF PS$ =|
|000007b0| 20 43 52 24 20 20 54 48 | 45 4e 20 50 53 24 20 3d | CR$  TH|EN PS$ =|
|000007c0| 20 22 31 22 0a 33 36 30 | 20 50 53 20 3d 20 20 56 | "1".360| PS =  V|
|000007d0| 41 4c 28 50 53 24 29 3a | 20 56 54 41 42 20 31 38 |AL(PS$):| VTAB 18|
|000007e0| 3a 20 48 54 41 42 20 32 | 38 3a 20 50 52 49 4e 54 |: HTAB 2|8: PRINT|
|000007f0| 20 50 53 24 0a 33 37 30 | 20 20 49 46 20 50 53 20 | PS$.370|  IF PS |
|00000800| 3c 31 20 20 4f 52 20 50 | 53 20 3e 37 20 20 54 48 |<1  OR P|S >7  TH|
|00000810| 45 4e 20 20 50 52 49 4e | 54 20 42 4c 24 3b 42 4c |EN  PRIN|T BL$;BL|
|00000820| 24 3b 3a 20 47 4f 54 4f | 20 33 35 30 0a 33 38 30 |$;: GOTO| 350.380|
|00000830| 20 20 48 4f 4d 45 20 3a | 20 50 4f 4b 45 20 20 2d |  HOME :| POKE  -|
|00000840| 31 36 33 36 38 2c 30 3a | 20 56 54 41 42 20 31 30 |16368,0:| VTAB 10|
|00000850| 3a 20 50 52 49 4e 54 20 | 22 44 4f 20 59 4f 55 20 |: PRINT |"DO YOU |
|00000860| 57 49 53 48 20 54 4f 20 | 55 53 45 20 41 20 46 4f |WISH TO |USE A FO|
|00000870| 52 4d 41 54 22 3a 20 50 | 52 49 4e 54 20 22 20 20 |RMAT": P|RINT "  |
|00000880| 57 48 49 43 48 20 49 53 | 20 4f 4e 20 54 48 45 20 |WHICH IS| ON THE |
|00000890| 44 49 53 4b 20 3c 59 2f | 4e 3e 20 3f 20 3c 20 3e |DISK <Y/|N> ? < >|
|000008a0| 22 3b 42 53 24 3b 42 53 | 24 3b 3a 20 47 45 54 20 |";BS$;BS|$;: GET |
|000008b0| 41 24 3a 20 50 52 49 4e | 54 20 41 24 0a 33 39 30 |A$: PRIN|T A$.390|
|000008c0| 20 20 49 46 20 41 24 20 | 3d 20 22 4e 22 20 20 4f |  IF A$ |= "N"  O|
|000008d0| 52 20 41 24 20 3d 20 20 | 43 48 52 24 28 31 31 30 |R A$ =  |CHR$(110|
|000008e0| 29 20 47 4f 54 4f 20 36 | 32 30 0a 34 30 30 20 20 |) GOTO 6|20.400  |
|000008f0| 49 46 20 41 24 20 3d 20 | 22 59 22 20 20 4f 52 20 |IF A$ = |"Y"  OR |
|00000900| 41 24 20 3d 20 20 43 48 | 52 24 28 31 32 31 29 20 |A$ =  CH|R$(121) |
|00000910| 47 4f 54 4f 20 34 32 30 | 0a 34 31 30 20 20 50 52 |GOTO 420|.410  PR|
|00000920| 49 4e 54 20 42 4c 24 20 | 2b 42 4c 24 3a 20 47 4f |INT BL$ |+BL$: GO|
|00000930| 54 4f 20 33 38 30 0a 34 | 32 30 20 46 4c 41 47 20 |TO 380.4|20 FLAG |
|00000940| 3d 20 31 3a 20 48 4f 4d | 45 20 3a 20 56 54 41 42 |= 1: HOM|E : VTAB|
|00000950| 20 31 30 3a 20 50 52 49 | 4e 54 20 22 20 20 20 20 | 10: PRI|NT "    |
|00000960| 57 48 41 54 20 46 4f 52 | 4d 41 54 20 44 4f 20 59 |WHAT FOR|MAT DO Y|
|00000970| 4f 55 20 57 49 53 48 20 | 54 4f 20 55 53 45 3f 22 |OU WISH |TO USE?"|
|00000980| 3a 20 50 52 49 4e 54 20 | 22 20 50 52 45 53 53 20 |: PRINT |" PRESS |
|00000990| 20 3f 20 20 54 4f 20 53 | 45 45 20 41 20 43 41 54 | ?  TO S|EE A CAT|
|000009a0| 41 4c 4f 47 20 4f 46 20 | 54 48 45 20 44 49 53 4b |ALOG OF |THE DISK|
|000009b0| 22 3a 20 50 52 49 4e 54 | 20 3a 20 49 4e 50 55 54 |": PRINT| : INPUT|
|000009c0| 20 22 46 4f 52 4d 41 54 | 20 4e 41 4d 45 3a 20 22 | "FORMAT| NAME: "|
|000009d0| 3b 46 24 3a 20 49 46 20 | 20 4c 45 4e 28 46 24 29 |;F$: IF | LEN(F$)|
|000009e0| 20 3e 31 35 20 20 54 48 | 45 4e 20 46 24 20 3d 20 | >15  TH|EN F$ = |
|000009f0| 20 4c 45 46 54 24 28 46 | 24 2c 31 35 29 0a 34 32 | LEFT$(F|$,15).42|
|00000a00| 35 20 20 49 46 20 46 24 | 20 3d 20 22 22 20 20 54 |5  IF F$| = ""  T|
|00000a10| 48 45 4e 20 33 38 30 0a | 34 33 30 20 20 49 46 20 |HEN 380.|430  IF |
|00000a20| 46 24 20 3c 20 3e 22 3f | 22 20 20 54 48 45 4e 20 |F$ < >"?|"  THEN |
|00000a30| 35 31 30 0a 34 34 30 20 | 20 49 46 20 46 24 20 3d |510.440 | IF F$ =|
|00000a40| 20 22 3f 22 20 20 54 48 | 45 4e 20 20 48 4f 4d 45 | "?"  TH|EN  HOME|
|00000a50| 20 3a 20 50 52 49 4e 54 | 20 3a 20 50 52 49 4e 54 | : PRINT| : PRINT|
|00000a60| 20 44 24 3b 20 4c 45 46 | 54 24 28 22 43 41 54 41 | D$; LEF|T$("CATA|
|00000a70| 4c 4f 47 22 2c 37 20 2d | 28 20 50 45 45 4b 28 34 |LOG",7 -|( PEEK(4|
|00000a80| 38 38 39 36 29 20 3d 20 | 37 36 29 20 2a 34 29 3b |8896) = |76) *4);|
|00000a90| 22 2c 53 22 3b 53 4c 3b | 22 2c 44 22 3b 44 52 0a |",S";SL;|",D";DR.|
|00000aa0| 34 35 30 20 20 47 4f 53 | 55 42 20 31 39 39 30 3a |450  GOS|UB 1990:|
|00000ab0| 20 52 45 4d 20 20 43 41 | 4c 4c 20 54 48 45 20 4b | REM  CA|LL THE K|
|00000ac0| 45 59 50 52 45 53 53 20 | 53 55 42 52 4f 55 54 49 |EYPRESS |SUBROUTI|
|00000ad0| 4e 45 0a 34 36 30 20 20 | 50 4f 4b 45 20 20 2d 31 |NE.460  |POKE  -1|
|00000ae0| 36 33 36 38 2c 30 0a 34 | 37 30 20 20 47 4f 54 4f |6368,0.4|70  GOTO|
|00000af0| 20 34 32 30 0a 34 38 30 | 20 20 52 45 4d 20 0a 34 | 420.480|  REM .4|
|00000b00| 39 30 20 20 52 45 4d 20 | 20 20 52 45 41 44 20 54 |90  REM |  READ T|
|00000b10| 48 45 20 44 49 53 4b 20 | 46 49 4c 45 0a 35 30 30 |HE DISK |FILE.500|
|00000b20| 20 20 52 45 4d 20 0a 35 | 31 30 20 46 4c 41 47 20 |  REM .5|10 FLAG |
|00000b30| 3d 20 32 3a 20 50 52 49 | 4e 54 20 3a 20 50 52 49 |= 2: PRI|NT : PRI|
|00000b40| 4e 54 20 44 24 3b 22 56 | 45 52 49 46 59 22 3b 46 |NT D$;"V|ERIFY";F|
|00000b50| 24 0a 35 32 30 20 46 4c | 41 47 20 3d 20 33 3a 20 |$.520 FL|AG = 3: |
|00000b60| 50 52 49 4e 54 20 3a 20 | 50 52 49 4e 54 20 44 24 |PRINT : |PRINT D$|
|00000b70| 3b 22 4f 50 45 4e 22 3b | 46 24 3b 22 2c 53 22 3b |;"OPEN";|F$;",S";|
|00000b80| 53 4c 3b 22 2c 44 22 3b | 44 52 3a 20 50 52 49 4e |SL;",D";|DR: PRIN|
|00000b90| 54 20 3a 20 50 52 49 4e | 54 20 44 24 3b 22 52 45 |T : PRIN|T D$;"RE|
|00000ba0| 41 44 22 3b 46 24 0a 35 | 33 30 20 20 49 4e 50 55 |AD";F$.5|30  INPU|
|00000bb0| 54 20 4d 3a 20 49 4e 50 | 55 54 20 48 3a 20 49 4e |T M: INP|UT H: IN|
|00000bc0| 50 55 54 20 52 3a 20 49 | 4e 50 55 54 20 4c 3a 20 |PUT R: I|NPUT L: |
|00000bd0| 49 4e 50 55 54 20 43 45 | 24 0a 35 34 30 20 20 46 |INPUT CE|$.540  F|
|00000be0| 4f 52 20 4b 20 3d 20 31 | 20 54 4f 20 4d 0a 35 35 |OR K = 1| TO M.55|
|00000bf0| 30 20 20 49 4e 50 55 54 | 20 58 28 4b 29 3a 20 49 |0  INPUT| X(K): I|
|00000c00| 4e 50 55 54 20 45 24 28 | 4b 29 0a 35 35 32 20 20 |NPUT E$(|K).552  |
|00000c10| 43 41 4c 4c 20 35 34 35 | 37 32 3a 20 46 4f 52 20 |CALL 545|72: FOR |
|00000c20| 42 20 3d 20 35 31 32 20 | 54 4f 20 37 36 38 3a 20 |B = 512 |TO 768: |
|00000c30| 49 46 20 20 50 45 45 4b | 28 42 29 20 3c 20 3e 30 |IF  PEEK|(B) < >0|
|00000c40| 20 20 54 48 45 4e 20 20 | 4e 45 58 54 20 0a 35 35 |  THEN  |NEXT .55|
|00000c50| 35 20 54 24 28 4b 29 20 | 3d 20 22 22 3a 41 44 20 |5 T$(K) |= "":AD |
|00000c60| 3d 20 20 56 41 4c 28 54 | 24 28 4b 29 29 20 2b 20 |=  VAL(T|$(K)) + |
|00000c70| 50 45 45 4b 28 31 33 31 | 29 20 2b 32 35 36 20 2a |PEEK(131|) +256 *|
|00000c80| 20 50 45 45 4b 28 31 33 | 32 29 3a 20 50 4f 4b 45 | PEEK(13|2): POKE|
|00000c90| 20 41 44 2c 42 20 2d 35 | 31 32 3a 20 50 4f 4b 45 | AD,B -5|12: POKE|
|00000ca0| 20 41 44 20 2b 31 2c 30 | 3a 20 50 4f 4b 45 20 41 | AD +1,0|: POKE A|
|00000cb0| 44 20 2b 32 2c 32 3a 54 | 24 28 4b 29 20 3d 20 20 |D +2,2:T|$(K) =  |
|00000cc0| 4d 49 44 24 20 28 54 24 | 28 4b 29 2c 31 29 3a 42 |MID$ (T$|(K),1):B|
|00000cd0| 20 3d 20 37 36 38 3a 20 | 4e 45 58 54 20 0a 35 35 | = 768: |NEXT .55|
|00000ce0| 37 20 20 49 4e 50 55 54 | 20 59 28 4b 29 0a 35 36 |7  INPUT| Y(K).56|
|00000cf0| 30 20 20 4e 45 58 54 20 | 0a 35 37 30 20 20 50 52 |0  NEXT |.570  PR|
|00000d00| 49 4e 54 20 44 24 3b 22 | 43 4c 4f 53 45 22 3b 46 |INT D$;"|CLOSE";F|
|00000d10| 24 0a 35 38 30 20 20 47 | 4f 53 55 42 20 31 37 36 |$.580  G|OSUB 176|
|00000d20| 30 0a 35 39 30 20 20 52 | 45 4d 20 0a 36 30 30 20 |0.590  R|EM .600 |
|00000d30| 20 52 45 4d 20 20 20 50 | 52 45 50 41 52 45 20 54 | REM   P|REPARE T|
|00000d40| 48 45 20 46 4f 52 4d 0a | 36 31 30 20 20 52 45 4d |HE FORM.|610  REM|
|00000d50| 20 0a 36 32 30 20 20 52 | 45 4d 20 0a 36 33 30 20 | .620  R|EM .630 |
|00000d60| 20 48 4f 4d 45 20 3a 20 | 56 54 41 42 20 31 30 3a | HOME : |VTAB 10:|
|00000d70| 20 50 52 49 4e 54 20 22 | 48 4f 57 20 4d 41 4e 59 | PRINT "|HOW MANY|
|00000d80| 20 4c 49 4e 45 53 20 28 | 31 20 54 4f 20 33 33 29 | LINES (|1 TO 33)|
|00000d90| 20 44 4f 20 59 4f 55 20 | 57 49 53 48 22 3a 20 50 | DO YOU |WISH": P|
|00000da0| 52 49 4e 54 20 22 20 20 | 54 4f 20 50 52 49 4e 54 |RINT "  |TO PRINT|
|00000db0| 20 4f 4e 20 45 41 43 48 | 20 46 4f 52 4d 20 3f 20 | ON EACH| FORM ? |
|00000dc0| 22 3b 3a 20 49 4e 50 55 | 54 20 22 22 3b 41 24 3a |";: INPU|T "";A$:|
|00000dd0| 4d 20 3d 20 20 56 41 4c | 28 41 24 29 0a 36 34 30 |M =  VAL|(A$).640|
|00000de0| 20 20 49 46 20 4d 20 3c | 31 20 20 4f 52 20 4d 20 |  IF M <|1  OR M |
|00000df0| 3e 33 33 20 20 54 48 45 | 4e 20 20 50 52 49 4e 54 |>33  THE|N  PRINT|
|00000e00| 20 42 4c 24 42 4c 24 3a | 20 50 52 49 4e 54 20 3a | BL$BL$:| PRINT :|
|00000e10| 20 50 52 49 4e 54 20 22 | 20 20 20 53 4f 52 52 59 | PRINT "|   SORRY|
|00000e20| 2c 20 49 54 20 4d 55 53 | 54 20 42 45 20 42 45 54 |, IT MUS|T BE BET|
|00000e30| 57 45 45 4e 20 31 20 41 | 4e 44 20 33 33 22 3a 20 |WEEN 1 A|ND 33": |
|00000e40| 47 4f 53 55 42 20 31 39 | 39 30 3a 20 47 4f 54 4f |GOSUB 19|90: GOTO|
|00000e50| 20 36 33 30 0a 36 35 30 | 20 20 50 4f 4b 45 20 20 | 630.650|  POKE  |
|00000e60| 2d 31 36 33 36 38 2c 30 | 3a 20 56 54 41 42 20 31 |-16368,0|: VTAB 1|
|00000e70| 33 3a 20 43 41 4c 4c 20 | 20 2d 39 35 38 3a 20 56 |3: CALL | -958: V|
|00000e80| 54 41 42 20 31 34 3a 20 | 50 52 49 4e 54 20 22 44 |TAB 14: |PRINT "D|
|00000e90| 4f 20 59 4f 55 20 57 49 | 53 48 20 49 54 20 43 45 |O YOU WI|SH IT CE|
|00000ea0| 4e 54 45 52 45 44 20 3c | 59 2f 4e 3e 20 3f 20 3c |NTERED <|Y/N> ? <|
|00000eb0| 20 3e 22 3b 42 53 24 3b | 42 53 24 3b 3a 20 47 45 | >";BS$;|BS$;: GE|
|00000ec0| 54 20 43 45 24 3a 20 50 | 52 49 4e 54 20 43 45 24 |T CE$: P|RINT CE$|
|00000ed0| 0a 36 36 30 20 20 49 46 | 20 43 45 24 20 3d 20 22 |.660  IF| CE$ = "|
|00000ee0| 59 22 20 20 4f 52 20 43 | 45 24 20 3d 20 20 43 48 |Y"  OR C|E$ =  CH|
|00000ef0| 52 24 28 31 32 31 29 20 | 47 4f 54 4f 20 36 39 30 |R$(121) |GOTO 690|
|00000f00| 0a 36 37 30 20 20 49 46 | 20 43 45 24 20 3d 20 22 |.670  IF| CE$ = "|
|00000f10| 4e 22 20 20 4f 52 20 43 | 45 24 20 3d 20 20 43 48 |N"  OR C|E$ =  CH|
|00000f20| 52 24 28 31 31 30 29 20 | 47 4f 54 4f 20 36 39 30 |R$(110) |GOTO 690|
|00000f30| 0a 36 38 30 20 20 50 52 | 49 4e 54 20 42 4c 24 3b |.680  PR|INT BL$;|
|00000f40| 42 4c 24 3a 20 47 4f 54 | 4f 20 36 35 30 0a 36 39 |BL$: GOT|O 650.69|
|00000f50| 30 20 20 48 4f 4d 45 20 | 3a 20 46 4f 52 20 4b 20 |0  HOME |: FOR K |
|00000f60| 3d 20 31 20 54 4f 20 4d | 0a 37 30 30 20 20 47 4f |= 1 TO M|.700  GO|
|00000f70| 53 55 42 20 31 35 31 30 | 0a 37 31 30 20 20 4e 45 |SUB 1510|.710  NE|
|00000f80| 58 54 20 0a 37 32 30 20 | 20 48 4f 4d 45 20 3a 20 |XT .720 | HOME : |
|00000f90| 56 54 41 42 20 31 30 3a | 20 50 52 49 4e 54 20 22 |VTAB 10:| PRINT "|
|00000fa0| 48 4f 57 20 4d 41 4e 59 | 20 42 4c 41 4e 4b 20 4c |HOW MANY| BLANK L|
|00000fb0| 49 4e 45 53 22 3a 20 50 | 52 49 4e 54 20 22 20 20 |INES": P|RINT "  |
|00000fc0| 42 45 54 57 45 45 4e 20 | 46 4f 52 4d 53 20 3f 20 |BETWEEN |FORMS ? |
|00000fd0| 22 3b 3a 20 49 4e 50 55 | 54 20 22 22 3b 4c 24 3a |";: INPU|T "";L$:|
|00000fe0| 4c 20 3d 20 20 56 41 4c | 28 4c 24 29 3a 41 24 20 |L =  VAL|(L$):A$ |
|00000ff0| 3d 20 22 22 0a 37 33 30 | 20 20 50 4f 4b 45 20 20 |= "".730|  POKE  |
|00001000| 2d 31 36 33 36 38 2c 30 | 3a 20 49 46 20 28 28 32 |-16368,0|: IF ((2|
|00001010| 20 2a 4d 29 20 2b 4c 29 | 20 3e 36 36 20 20 54 48 | *M) +L)| >66  TH|
|00001020| 45 4e 20 20 50 52 49 4e | 54 20 42 4c 24 3b 42 4c |EN  PRIN|T BL$;BL|
|00001030| 24 3a 20 50 52 49 4e 54 | 20 22 54 48 41 54 20 49 |$: PRINT| "THAT I|
|00001040| 53 20 4c 4f 4e 47 45 52 | 20 54 48 41 4e 20 41 4e |S LONGER| THAN AN|
|00001050| 20 31 31 2d 49 4e 43 48 | 20 50 41 47 45 3b 22 3a | 11-INCH| PAGE;":|
|00001060| 20 50 52 49 4e 54 20 22 | 20 20 41 52 45 20 59 4f | PRINT "|  ARE YO|
|00001070| 55 20 53 55 52 45 20 3c | 59 2f 4e 3e 20 3f 20 3c |U SURE <|Y/N> ? <|
|00001080| 20 3e 22 3b 42 53 24 3b | 42 53 24 3b 3a 20 47 45 | >";BS$;|BS$;: GE|
|00001090| 54 20 41 24 3a 20 50 52 | 49 4e 54 20 41 24 0a 37 |T A$: PR|INT A$.7|
|000010a0| 34 30 20 20 49 46 20 41 | 24 20 3d 20 22 59 22 20 |40  IF A|$ = "Y" |
|000010b0| 20 4f 52 20 41 24 20 3d | 20 20 43 48 52 24 28 31 | OR A$ =|  CHR$(1|
|000010c0| 32 31 29 20 47 4f 54 4f | 20 37 37 30 0a 37 35 30 |21) GOTO| 770.750|
|000010d0| 20 20 49 46 20 41 24 20 | 3d 20 22 4e 22 20 20 4f |  IF A$ |= "N"  O|
|000010e0| 52 20 41 24 20 3d 20 20 | 43 48 52 24 28 31 31 30 |R A$ =  |CHR$(110|
|000010f0| 29 20 47 4f 54 4f 20 37 | 32 30 0a 37 36 30 20 20 |) GOTO 7|20.760  |
|00001100| 49 46 20 28 28 32 20 2a | 4d 29 20 2b 4c 29 20 3e |IF ((2 *|M) +L) >|
|00001110| 36 36 20 20 54 48 45 4e | 20 20 50 52 49 4e 54 20 |66  THEN|  PRINT |
|00001120| 42 4c 24 3b 42 4c 24 3a | 20 47 4f 54 4f 20 37 33 |BL$;BL$:| GOTO 73|
|00001130| 30 0a 37 37 30 20 20 48 | 4f 4d 45 20 3a 20 56 54 |0.770  H|OME : VT|
|00001140| 41 42 20 31 30 3a 20 50 | 52 49 4e 54 20 22 48 4f |AB 10: P|RINT "HO|
|00001150| 57 20 4d 41 4e 59 20 52 | 45 50 45 54 49 54 49 4f |W MANY R|EPETITIO|
|00001160| 4e 53 20 3f 20 22 3b 3a | 20 49 4e 50 55 54 20 22 |NS ? ";:| INPUT "|
|00001170| 22 3b 41 24 0a 37 38 30 | 20 52 20 3d 20 20 56 41 |";A$.780| R =  VA|
|00001180| 4c 28 41 24 29 0a 37 39 | 30 20 20 48 4f 4d 45 20 |L(A$).79|0  HOME |
|00001190| 3a 20 56 54 41 42 20 31 | 30 3a 20 50 52 49 4e 54 |: VTAB 1|0: PRINT|
|000011a0| 20 22 48 4f 57 20 4d 41 | 4e 59 20 4c 49 4e 45 53 | "HOW MA|NY LINES|
|000011b0| 20 44 4f 57 4e 20 46 52 | 4f 4d 20 54 48 45 20 54 | DOWN FR|OM THE T|
|000011c0| 4f 50 22 3a 20 50 52 49 | 4e 54 20 22 20 20 44 4f |OP": PRI|NT "  DO|
|000011d0| 20 59 4f 55 20 57 49 53 | 48 20 54 48 45 20 50 52 | YOU WIS|H THE PR|
|000011e0| 49 4e 54 49 4e 47 20 54 | 4f 20 42 45 47 49 4e 20 |INTING T|O BEGIN |
|000011f0| 3f 20 22 3b 3a 20 49 4e | 50 55 54 20 22 22 3b 41 |? ";: IN|PUT "";A|
|00001200| 24 3a 48 20 3d 20 20 56 | 41 4c 28 41 24 29 0a 38 |$:H =  V|AL(A$).8|
|00001210| 30 30 20 20 49 46 20 48 | 20 3e 36 36 20 20 54 48 |00  IF H| >66  TH|
|00001220| 45 4e 20 20 50 52 49 4e | 54 20 42 4c 24 3b 42 4c |EN  PRIN|T BL$;BL|
|00001230| 24 3a 20 50 52 49 4e 54 | 20 22 54 48 41 54 20 57 |$: PRINT| "THAT W|
|00001240| 49 4c 4c 20 42 45 20 4f | 46 46 20 54 48 45 20 50 |ILL BE O|FF THE P|
|00001250| 41 47 45 20 41 54 20 54 | 48 45 20 42 4f 54 54 4f |AGE AT T|HE BOTTO|
|00001260| 4d 22 3a 20 47 4f 53 55 | 42 20 31 39 39 30 3a 20 |M": GOSU|B 1990: |
|00001270| 47 4f 54 4f 20 37 39 30 | 0a 38 31 30 20 20 49 46 |GOTO 790|.810  IF|
|00001280| 20 48 20 3c 30 20 20 54 | 48 45 4e 20 20 50 52 49 | H <0  T|HEN  PRI|
|00001290| 4e 54 20 42 4c 24 3b 42 | 4c 24 3a 20 50 52 49 4e |NT BL$;B|L$: PRIN|
|000012a0| 54 20 22 20 20 50 4c 45 | 41 53 45 20 55 53 45 20 |T "  PLE|ASE USE |
|000012b0| 41 20 4e 55 4d 42 45 52 | 20 42 45 54 57 45 45 4e |A NUMBER| BETWEEN|
|000012c0| 20 31 20 41 4e 44 20 36 | 36 22 3a 20 47 4f 54 4f | 1 AND 6|6": GOTO|
|000012d0| 20 37 39 30 0a 38 32 30 | 20 20 47 4f 53 55 42 20 | 790.820|  GOSUB |
|000012e0| 31 39 39 30 3a 20 47 4f | 53 55 42 20 31 37 36 30 |1990: GO|SUB 1760|
|000012f0| 0a 38 33 30 20 20 47 4f | 53 55 42 20 31 36 39 30 |.830  GO|SUB 1690|
|00001300| 3a 20 50 52 49 4e 54 20 | 3a 20 50 52 49 4e 54 20 |: PRINT |: PRINT |
|00001310| 44 24 3b 22 50 52 23 30 | 22 3a 20 52 45 4d 20 20 |D$;"PR#0|": REM  |
|00001320| 43 4c 45 41 52 20 54 48 | 45 20 44 45 43 4b 53 0a |CLEAR TH|E DECKS.|
|00001330| 38 34 30 20 20 52 45 4d | 20 0a 38 35 30 20 20 52 |840  REM| .850  R|
|00001340| 45 4d 20 20 20 53 54 41 | 52 54 20 50 52 49 4e 54 |EM   STA|RT PRINT|
|00001350| 49 4e 47 0a 38 36 30 20 | 20 52 45 4d 20 0a 38 37 |ING.860 | REM .87|
|00001360| 30 20 20 50 52 49 4e 54 | 20 3a 20 50 52 49 4e 54 |0  PRINT| : PRINT|
|00001370| 20 44 24 3b 22 50 52 23 | 22 50 53 24 3a 20 50 52 | D$;"PR#|"PS$: PR|
|00001380| 49 4e 54 20 20 43 48 52 | 24 28 39 29 22 31 33 36 |INT  CHR|$(9)"136|
|00001390| 4e 22 3a 20 50 52 49 4e | 54 20 50 43 24 28 31 2c |N": PRIN|T PC$(1,|
|000013a0| 31 29 3b 0a 38 38 30 20 | 20 46 4f 52 20 4e 20 3d |1);.880 | FOR N =|
|000013b0| 20 31 20 54 4f 20 52 0a | 38 39 30 20 20 49 46 20 | 1 TO R.|890  IF |
|000013c0| 48 20 3d 20 30 20 47 4f | 54 4f 20 39 31 30 0a 39 |H = 0 GO|TO 910.9|
|000013d0| 30 30 20 20 46 4f 52 20 | 47 20 3d 20 31 20 54 4f |00  FOR |G = 1 TO|
|000013e0| 20 48 3a 20 50 52 49 4e | 54 20 3a 20 4e 45 58 54 | H: PRIN|T : NEXT|
|000013f0| 20 0a 39 31 30 20 20 46 | 4f 52 20 4b 20 3d 20 31 | .910  F|OR K = 1|
|00001400| 20 54 4f 20 4d 0a 39 32 | 30 20 42 46 24 20 3d 20 | TO M.92|0 BF$ = |
|00001410| 22 22 3a 20 49 46 20 45 | 24 28 4b 29 20 3d 20 22 |"": IF E|$(K) = "|
|00001420| 59 22 20 20 4f 52 20 45 | 24 28 4b 29 20 3d 20 20 |Y"  OR E|$(K) =  |
|00001430| 43 48 52 24 28 31 32 31 | 29 20 20 54 48 45 4e 20 |CHR$(121|)  THEN |
|00001440| 42 46 24 20 3d 20 42 31 | 24 0a 39 33 30 20 20 49 |BF$ = B1|$.930  I|
|00001450| 46 20 54 24 28 4b 29 20 | 3d 20 22 22 20 20 54 48 |F T$(K) |= ""  TH|
|00001460| 45 4e 20 20 50 52 49 4e | 54 20 3a 20 47 4f 54 4f |EN  PRIN|T : GOTO|
|00001470| 20 39 36 30 0a 39 34 30 | 20 20 48 54 41 42 20 31 | 960.940|  HTAB 1|
|00001480| 3a 20 50 52 49 4e 54 20 | 52 24 3b 3a 20 50 52 49 |: PRINT |R$;: PRI|
|00001490| 4e 54 20 20 54 41 42 28 | 20 59 28 4b 29 29 3b 50 |NT  TAB(| Y(K));P|
|000014a0| 43 24 28 58 28 4b 29 2c | 31 29 3b 42 46 24 3b 54 |C$(X(K),|1);BF$;T|
|000014b0| 24 28 4b 29 3b 42 5a 24 | 3b 50 43 24 28 58 28 4b |$(K);BZ$|;PC$(X(K|
|000014c0| 29 2c 30 29 0a 39 35 30 | 20 20 50 52 49 4e 54 20 |),0).950|  PRINT |
|000014d0| 0a 39 36 30 20 20 4e 45 | 58 54 20 0a 39 37 30 20 |.960  NE|XT .970 |
|000014e0| 20 49 46 20 4c 20 3d 20 | 30 20 47 4f 54 4f 20 39 | IF L = |0 GOTO 9|
|000014f0| 39 30 0a 39 38 30 20 20 | 46 4f 52 20 4a 20 3d 20 |90.980  |FOR J = |
|00001500| 30 20 54 4f 20 4c 3a 20 | 50 52 49 4e 54 20 3a 20 |0 TO L: |PRINT : |
|00001510| 4e 45 58 54 20 0a 39 39 | 30 20 20 4e 45 58 54 20 |NEXT .99|0  NEXT |
|00001520| 0a 31 30 30 30 20 20 50 | 52 49 4e 54 20 3a 20 50 |.1000  P|RINT : P|
|00001530| 52 49 4e 54 20 44 24 3b | 22 50 52 23 30 22 0a 31 |RINT D$;|"PR#0".1|
|00001540| 30 31 30 20 20 52 45 4d | 20 0a 31 30 32 30 20 20 |010  REM| .1020  |
|00001550| 52 45 4d 20 20 44 4f 20 | 49 54 20 41 47 41 49 4e |REM  DO |IT AGAIN|
|00001560| 3f 0a 31 30 33 30 20 20 | 52 45 4d 20 0a 31 30 34 |?.1030  |REM .104|
|00001570| 30 20 20 50 4f 4b 45 20 | 20 2d 31 36 33 36 38 2c |0  POKE | -16368,|
|00001580| 30 3a 20 48 4f 4d 45 20 | 3a 20 56 54 41 42 20 31 |0: HOME |: VTAB 1|
|00001590| 30 3a 20 50 52 49 4e 54 | 20 22 57 4f 55 4c 44 20 |0: PRINT| "WOULD |
|000015a0| 59 4f 55 20 4c 49 4b 45 | 20 54 4f 20 52 45 50 45 |YOU LIKE| TO REPE|
|000015b0| 41 54 20 57 49 54 48 20 | 54 48 45 22 3a 20 50 52 |AT WITH |THE": PR|
|000015c0| 49 4e 54 20 22 20 20 53 | 41 4d 45 20 53 45 54 54 |INT "  S|AME SETT|
|000015d0| 49 4e 47 53 20 3c 59 2f | 4e 3e 20 3f 20 3c 20 3e |INGS <Y/|N> ? < >|
|000015e0| 22 3b 42 53 24 3b 42 53 | 24 3b 3a 20 47 45 54 20 |";BS$;BS|$;: GET |
|000015f0| 41 24 3a 20 50 52 49 4e | 54 20 41 24 0a 31 30 35 |A$: PRIN|T A$.105|
|00001600| 30 20 20 49 46 20 41 24 | 20 3d 20 22 59 22 20 20 |0  IF A$| = "Y"  |
|00001610| 4f 52 20 41 24 20 3d 20 | 20 43 48 52 24 28 31 32 |OR A$ = | CHR$(12|
|00001620| 31 29 20 20 54 48 45 4e | 20 20 47 4f 53 55 42 20 |1)  THEN|  GOSUB |
|00001630| 31 36 39 30 3a 20 47 4f | 54 4f 20 38 37 30 0a 31 |1690: GO|TO 870.1|
|00001640| 30 36 30 20 20 49 46 20 | 41 24 20 3d 20 22 4e 22 |060  IF |A$ = "N"|
|00001650| 20 20 4f 52 20 41 24 20 | 3d 20 20 43 48 52 24 28 |  OR A$ |=  CHR$(|
|00001660| 31 31 30 29 20 47 4f 54 | 4f 20 31 31 35 30 0a 31 |110) GOT|O 1150.1|
|00001670| 30 37 30 20 20 56 54 41 | 42 20 31 35 3a 20 50 52 |070  VTA|B 15: PR|
|00001680| 49 4e 54 20 42 4c 24 3b | 42 4c 24 3a 20 47 4f 54 |INT BL$;|BL$: GOT|
|00001690| 4f 20 31 30 34 30 0a 31 | 30 38 30 20 20 50 4f 4b |O 1040.1|080  POK|
|000016a0| 45 20 20 2d 31 36 33 36 | 38 2c 30 3a 20 48 4f 4d |E  -1636|8,0: HOM|
|000016b0| 45 20 3a 20 56 54 41 42 | 20 31 30 3a 20 50 52 49 |E : VTAB| 10: PRI|
|000016c0| 4e 54 20 22 57 4f 55 4c | 44 20 59 4f 55 20 4c 49 |NT "WOUL|D YOU LI|
|000016d0| 4b 45 20 54 4f 20 52 45 | 52 55 4e 20 3c 59 2f 4e |KE TO RE|RUN <Y/N|
|000016e0| 3e 3f 20 3c 20 3e 22 3b | 42 53 24 3b 42 53 24 3b |>? < >";|BS$;BS$;|
|000016f0| 3a 20 47 45 54 20 5a 24 | 3a 20 50 52 49 4e 54 20 |: GET Z$|: PRINT |
|00001700| 5a 24 0a 31 30 39 30 20 | 20 49 46 20 5a 24 20 3d |Z$.1090 | IF Z$ =|
|00001710| 20 22 59 22 20 20 4f 52 | 20 5a 24 20 3d 20 20 43 | "Y"  OR| Z$ =  C|
|00001720| 48 52 24 28 31 32 31 29 | 20 20 54 48 45 4e 20 20 |HR$(121)|  THEN  |
|00001730| 48 4f 4d 45 20 3a 20 47 | 4f 54 4f 20 32 31 30 0a |HOME : G|OTO 210.|
|00001740| 31 31 30 30 20 20 49 46 | 20 5a 24 20 3d 20 22 4e |1100  IF| Z$ = "N|
|00001750| 22 20 20 4f 52 20 5a 24 | 20 3d 20 20 43 48 52 24 |"  OR Z$| =  CHR$|
|00001760| 28 31 31 30 29 20 47 4f | 54 4f 20 31 31 35 30 0a |(110) GO|TO 1150.|
|00001770| 31 31 31 30 20 20 50 52 | 49 4e 54 20 42 4c 24 3b |1110  PR|INT BL$;|
|00001780| 42 4c 24 3a 20 47 4f 54 | 4f 20 31 30 38 30 0a 31 |BL$: GOT|O 1080.1|
|00001790| 31 32 30 20 20 52 45 4d | 20 0a 31 31 33 30 20 20 |120  REM| .1130  |
|000017a0| 52 45 4d 20 20 53 41 56 | 45 20 54 48 45 20 46 4f |REM  SAV|E THE FO|
|000017b0| 52 4d 0a 31 31 34 30 20 | 20 52 45 4d 20 0a 31 31 |RM.1140 | REM .11|
|000017c0| 35 30 20 20 50 4f 4b 45 | 20 20 2d 31 36 33 36 38 |50  POKE|  -16368|
|000017d0| 2c 30 3a 46 4c 41 47 20 | 3d 20 34 3a 20 48 4f 4d |,0:FLAG |= 4: HOM|
|000017e0| 45 20 3a 20 56 54 41 42 | 20 31 30 3a 20 50 52 49 |E : VTAB| 10: PRI|
|000017f0| 4e 54 20 22 57 4f 55 4c | 44 20 59 4f 55 20 4c 49 |NT "WOUL|D YOU LI|
|00001800| 4b 45 20 54 4f 20 53 41 | 56 45 20 54 48 49 53 20 |KE TO SA|VE THIS |
|00001810| 46 4f 52 4d 41 54 22 3a | 20 50 52 49 4e 54 20 22 |FORMAT":| PRINT "|
|00001820| 20 20 54 4f 20 44 49 53 | 4b 20 3c 59 2f 4e 3e 20 |  TO DIS|K <Y/N> |
|00001830| 3f 20 3c 20 3e 22 3b 42 | 53 24 3b 42 53 24 3b 3a |? < >";B|S$;BS$;:|
|00001840| 20 47 45 54 20 41 24 3a | 20 50 52 49 4e 54 20 41 | GET A$:| PRINT A|
|00001850| 24 0a 31 31 36 30 20 20 | 49 46 20 41 24 20 3d 20 |$.1160  |IF A$ = |
|00001860| 22 4e 22 20 20 4f 52 20 | 41 24 20 3d 20 20 43 48 |"N"  OR |A$ =  CH|
|00001870| 52 24 28 31 31 30 29 20 | 47 4f 54 4f 20 31 33 33 |R$(110) |GOTO 133|
|00001880| 30 0a 31 31 37 30 20 20 | 49 46 20 41 24 20 3d 20 |0.1170  |IF A$ = |
|00001890| 22 59 22 20 20 4f 52 20 | 41 24 20 3d 20 20 43 48 |"Y"  OR |A$ =  CH|
|000018a0| 52 24 28 31 32 31 29 20 | 47 4f 54 4f 20 31 31 39 |R$(121) |GOTO 119|
|000018b0| 30 0a 31 31 38 30 20 20 | 50 52 49 4e 54 20 42 4c |0.1180  |PRINT BL|
|000018c0| 24 3b 42 4c 24 3a 20 47 | 4f 54 4f 20 31 31 35 30 |$;BL$: G|OTO 1150|
|000018d0| 0a 31 31 39 30 20 20 48 | 4f 4d 45 20 3a 20 56 54 |.1190  H|OME : VT|
|000018e0| 41 42 20 31 30 3a 20 50 | 52 49 4e 54 20 22 20 20 |AB 10: P|RINT "  |
|000018f0| 57 48 41 54 20 46 49 4c | 45 20 4e 41 4d 45 20 44 |WHAT FIL|E NAME D|
|00001900| 4f 20 59 4f 55 20 57 49 | 53 48 20 54 4f 20 55 53 |O YOU WI|SH TO US|
|00001910| 45 3f 20 22 3a 20 50 52 | 49 4e 54 20 22 20 50 52 |E? ": PR|INT " PR|
|00001920| 45 53 53 20 20 3f 20 20 | 54 4f 20 53 45 45 20 41 |ESS  ?  |TO SEE A|
|00001930| 20 43 41 54 41 4c 4f 47 | 20 4f 46 20 54 48 45 20 | CATALOG| OF THE |
|00001940| 44 49 53 4b 22 3a 20 50 | 52 49 4e 54 20 3a 20 49 |DISK": P|RINT : I|
|00001950| 4e 50 55 54 20 22 46 49 | 4c 45 20 4e 41 4d 45 3a |NPUT "FI|LE NAME:|
|00001960| 20 22 3b 46 24 0a 31 31 | 39 35 20 20 49 46 20 46 | ";F$.11|95  IF F|
|00001970| 24 20 3d 20 22 22 20 20 | 54 48 45 4e 20 31 33 33 |$ = ""  |THEN 133|
|00001980| 30 0a 31 32 30 30 20 20 | 49 46 20 46 24 20 3c 20 |0.1200  |IF F$ < |
|00001990| 3e 22 3f 22 20 47 4f 54 | 4f 20 31 32 34 30 0a 31 |>"?" GOT|O 1240.1|
|000019a0| 32 31 30 20 20 49 46 20 | 46 24 20 3d 20 22 3f 22 |210  IF |F$ = "?"|
|000019b0| 20 20 54 48 45 4e 20 20 | 48 4f 4d 45 20 3a 20 50 |  THEN  |HOME : P|
|000019c0| 52 49 4e 54 20 3a 20 50 | 52 49 4e 54 20 44 24 3b |RINT : P|RINT D$;|
|000019d0| 20 4c 45 46 54 24 28 22 | 43 41 54 41 4c 4f 47 22 | LEFT$("|CATALOG"|
|000019e0| 2c 37 20 2d 28 20 50 45 | 45 4b 28 34 38 38 39 36 |,7 -( PE|EK(48896|
|000019f0| 29 20 3d 20 37 36 29 20 | 2a 34 29 3b 22 2c 53 22 |) = 76) |*4);",S"|
|00001a00| 3b 53 4c 3b 22 2c 44 22 | 3b 44 52 0a 31 32 32 30 |;SL;",D"|;DR.1220|
|00001a10| 20 20 47 4f 53 55 42 20 | 31 39 39 30 0a 31 32 33 |  GOSUB |1990.123|
|00001a20| 30 20 20 47 4f 54 4f 20 | 31 31 39 30 0a 31 32 34 |0  GOTO |1190.124|
|00001a30| 30 20 20 50 52 49 4e 54 | 20 3a 20 50 52 49 4e 54 |0  PRINT| : PRINT|
|00001a40| 20 44 24 3b 22 4f 50 45 | 4e 22 3b 46 24 3b 22 2c | D$;"OPE|N";F$;",|
|00001a50| 53 22 3b 53 4c 3b 22 2c | 44 22 3b 44 52 3a 20 50 |S";SL;",|D";DR: P|
|00001a60| 52 49 4e 54 20 44 24 3b | 22 43 4c 4f 53 45 22 3b |RINT D$;|"CLOSE";|
|00001a70| 46 24 3a 20 50 52 49 4e | 54 20 44 24 3b 22 44 45 |F$: PRIN|T D$;"DE|
|00001a80| 4c 45 54 45 22 3b 46 24 | 3a 20 50 52 49 4e 54 20 |LETE";F$|: PRINT |
|00001a90| 44 24 3b 22 4f 50 45 4e | 22 3b 46 24 3a 20 50 52 |D$;"OPEN|";F$: PR|
|00001aa0| 49 4e 54 20 44 24 22 57 | 52 49 54 45 22 3b 46 24 |INT D$"W|RITE";F$|
|00001ab0| 0a 31 32 35 30 20 20 50 | 52 49 4e 54 20 4d 3a 20 |.1250  P|RINT M: |
|00001ac0| 50 52 49 4e 54 20 48 3a | 20 50 52 49 4e 54 20 52 |PRINT H:| PRINT R|
|00001ad0| 3a 20 50 52 49 4e 54 20 | 4c 3a 20 50 52 49 4e 54 |: PRINT |L: PRINT|
|00001ae0| 20 43 45 24 0a 31 32 36 | 30 20 20 46 4f 52 20 4b | CE$.126|0  FOR K|
|00001af0| 20 3d 20 31 20 54 4f 20 | 4d 0a 31 32 37 30 20 20 | = 1 TO |M.1270  |
|00001b00| 50 52 49 4e 54 20 58 28 | 4b 29 3a 20 50 52 49 4e |PRINT X(|K): PRIN|
|00001b10| 54 20 45 24 28 4b 29 3a | 20 50 52 49 4e 54 20 54 |T E$(K):| PRINT T|
|00001b20| 24 28 4b 29 3a 20 50 52 | 49 4e 54 20 59 28 4b 29 |$(K): PR|INT Y(K)|
|00001b30| 0a 31 32 38 30 20 20 4e | 45 58 54 20 0a 31 32 39 |.1280  N|EXT .129|
|00001b40| 30 20 20 50 52 49 4e 54 | 20 44 24 3b 22 43 4c 4f |0  PRINT| D$;"CLO|
|00001b50| 53 45 22 3b 46 24 3a 20 | 50 52 49 4e 54 20 3a 20 |SE";F$: |PRINT : |
|00001b60| 50 52 49 4e 54 20 22 20 | 20 20 20 20 20 46 49 4c |PRINT " |     FIL|
|00001b70| 45 20 22 3b 46 24 3b 22 | 20 43 52 45 41 54 45 44 |E ";F$;"| CREATED|
|00001b80| 22 3a 20 47 4f 53 55 42 | 20 31 39 39 30 3a 20 52 |": GOSUB| 1990: R|
|00001b90| 45 4d 20 36 20 53 50 41 | 43 45 53 0a 31 33 30 30 |EM 6 SPA|CES.1300|
|00001ba0| 20 20 52 45 4d 20 0a 31 | 33 31 30 20 20 52 45 4d |  REM .1|310  REM|
|00001bb0| 20 20 20 4c 45 41 56 49 | 4e 47 20 54 48 45 20 50 |   LEAVI|NG THE P|
|00001bc0| 52 4f 47 52 41 4d 0a 31 | 33 32 30 20 20 52 45 4d |ROGRAM.1|320  REM|
|00001bd0| 20 0a 31 33 33 30 20 20 | 50 4f 4b 45 20 20 2d 31 | .1330  |POKE  -1|
|00001be0| 36 33 36 38 2c 30 3a 20 | 48 4f 4d 45 20 0a 31 33 |6368,0: |HOME .13|
|00001bf0| 34 30 20 20 56 54 41 42 | 20 36 3a 20 50 52 49 4e |40  VTAB| 6: PRIN|
|00001c00| 54 20 22 57 4f 55 4c 44 | 20 59 4f 55 20 4c 49 4b |T "WOULD| YOU LIK|
|00001c10| 45 20 54 4f 20 51 55 49 | 54 3f 22 3a 20 50 52 49 |E TO QUI|T?": PRI|
|00001c20| 4e 54 20 3a 20 50 52 49 | 4e 54 20 22 20 20 50 52 |NT : PRI|NT "  PR|
|00001c30| 45 53 53 20 3c 59 3e 20 | 46 4f 52 20 59 45 53 22 |ESS <Y> |FOR YES"|
|00001c40| 3a 20 50 52 49 4e 54 20 | 20 53 50 43 28 20 38 29 |: PRINT | SPC( 8)|
|00001c50| 3b 22 3c 4e 3e 20 54 4f | 20 20 52 45 54 55 52 4e |;"<N> TO|  RETURN|
|00001c60| 20 54 4f 20 54 48 45 22 | 3a 20 50 52 49 4e 54 20 | TO THE"|: PRINT |
|00001c70| 20 53 50 43 28 20 31 36 | 29 3b 22 50 52 45 56 49 | SPC( 16|);"PREVI|
|00001c80| 4f 55 53 20 53 54 45 50 | 22 3a 20 50 52 49 4e 54 |OUS STEP|": PRINT|
|00001c90| 20 20 53 50 43 28 20 38 | 29 3b 22 3c 52 3e 20 54 |  SPC( 8|);"<R> T|
|00001ca0| 4f 20 52 45 53 54 41 52 | 54 22 3a 20 50 52 49 4e |O RESTAR|T": PRIN|
|00001cb0| 54 20 3a 20 50 52 49 4e | 54 20 20 53 50 43 28 20 |T : PRIN|T  SPC( |
|00001cc0| 38 29 3b 22 3c 20 3e 22 | 3b 42 53 24 3b 42 53 24 |8);"< >"|;BS$;BS$|
|00001cd0| 3b 3a 20 47 45 54 20 41 | 24 3a 20 50 52 49 4e 54 |;: GET A|$: PRINT|
|00001ce0| 20 41 24 0a 31 33 35 30 | 20 20 49 46 20 41 24 20 | A$.1350|  IF A$ |
|00001cf0| 3d 20 22 59 22 20 20 4f | 52 20 41 24 20 3d 20 20 |= "Y"  O|R A$ =  |
|00001d00| 43 48 52 24 28 31 32 31 | 29 20 47 4f 54 4f 20 31 |CHR$(121|) GOTO 1|
|00001d10| 33 39 30 0a 31 33 36 30 | 20 20 49 46 20 41 24 20 |390.1360|  IF A$ |
|00001d20| 3d 20 22 4e 22 20 20 4f | 52 20 41 24 20 3d 20 20 |= "N"  O|R A$ =  |
|00001d30| 43 48 52 24 28 31 31 30 | 29 20 47 4f 54 4f 20 31 |CHR$(110|) GOTO 1|
|00001d40| 31 35 30 0a 31 33 37 30 | 20 20 49 46 20 41 24 20 |150.1370|  IF A$ |
|00001d50| 3d 20 22 52 22 20 20 4f | 52 20 41 24 20 3d 20 20 |= "R"  O|R A$ =  |
|00001d60| 43 48 52 24 28 31 31 34 | 29 20 47 4f 54 4f 20 33 |CHR$(114|) GOTO 3|
|00001d70| 38 30 0a 31 33 38 30 20 | 20 50 52 49 4e 54 20 3a |80.1380 | PRINT :|
|00001d80| 20 50 52 49 4e 54 20 42 | 4c 24 3b 42 4c 24 3a 20 | PRINT B|L$;BL$: |
|00001d90| 47 4f 54 4f 20 31 33 33 | 30 0a 31 33 39 30 20 20 |GOTO 133|0.1390  |
|00001da0| 50 52 49 4e 54 20 3a 20 | 50 52 49 4e 54 20 3a 20 |PRINT : |PRINT : |
|00001db0| 50 52 49 4e 54 20 3a 20 | 50 52 49 4e 54 20 22 45 |PRINT : |PRINT "E|
|00001dc0| 58 49 54 49 4e 47 20 57 | 49 4c 4c 20 44 45 53 54 |XITING W|ILL DEST|
|00001dd0| 52 4f 59 20 41 4e 59 20 | 46 49 4c 45 20 49 4e 20 |ROY ANY |FILE IN |
|00001de0| 52 41 4d 2e 2e 2e 22 3a | 20 50 52 49 4e 54 20 3a |RAM...":| PRINT :|
|00001df0| 20 50 52 49 4e 54 20 22 | 20 20 50 52 45 53 53 20 | PRINT "|  PRESS |
|00001e00| 22 3b 3a 20 49 4e 56 45 | 52 53 45 20 3a 20 50 52 |";: INVE|RSE : PR|
|00001e10| 49 4e 54 20 22 45 22 3b | 3a 20 4e 4f 52 4d 41 4c |INT "E";|: NORMAL|
|00001e20| 20 3a 20 50 52 49 4e 54 | 20 22 20 54 4f 20 43 4f | : PRINT| " TO CO|
|00001e30| 4e 46 49 52 4d 20 59 4f | 55 20 57 49 53 48 20 54 |NFIRM YO|U WISH T|
|00001e40| 4f 20 45 58 49 54 22 0a | 31 34 30 30 20 20 50 52 |O EXIT".|1400  PR|
|00001e50| 49 4e 54 20 3a 20 50 52 | 49 4e 54 20 3a 20 48 54 |INT : PR|INT : HT|
|00001e60| 41 42 20 36 3a 20 50 52 | 49 4e 54 20 22 4f 52 20 |AB 6: PR|INT "OR |
|00001e70| 22 3b 3a 20 49 4e 56 45 | 52 53 45 20 3a 20 50 52 |";: INVE|RSE : PR|
|00001e80| 49 4e 54 20 22 41 4e 59 | 20 4f 54 48 45 52 20 4b |INT "ANY| OTHER K|
|00001e90| 45 59 22 3b 3a 20 4e 4f | 52 4d 41 4c 20 3a 20 50 |EY";: NO|RMAL : P|
|00001ea0| 52 49 4e 54 20 22 20 54 | 4f 20 43 4f 4e 54 49 4e |RINT " T|O CONTIN|
|00001eb0| 55 45 20 20 22 3b 3a 0a | 31 34 31 30 20 20 47 45 |UE  ";:.|1410  GE|
|00001ec0| 54 20 41 24 3a 20 49 46 | 20 41 24 20 3d 20 22 45 |T A$: IF| A$ = "E|
|00001ed0| 22 20 20 4f 52 20 41 24 | 20 3d 20 20 43 48 52 24 |"  OR A$| =  CHR$|
|00001ee0| 28 31 30 31 29 20 20 54 | 48 45 4e 20 20 50 52 49 |(101)  T|HEN  PRI|
|00001ef0| 4e 54 20 3a 20 47 4f 54 | 4f 20 31 34 33 30 0a 31 |NT : GOT|O 1430.1|
|00001f00| 34 32 30 20 20 47 4f 54 | 4f 20 31 31 35 30 0a 31 |420  GOT|O 1150.1|
|00001f10| 34 33 30 20 20 56 54 41 | 42 20 32 32 3a 20 50 52 |430  VTA|B 22: PR|
|00001f20| 49 4e 54 20 3a 20 48 54 | 41 42 20 31 33 3a 53 54 |INT : HT|AB 13:ST|
|00001f30| 24 20 3d 20 22 27 42 59 | 45 20 46 4f 52 20 4e 4f |$ = "'BY|E FOR NO|
|00001f40| 57 2e 2e 22 3a 20 47 4f | 53 55 42 20 31 34 37 30 |W..": GO|SUB 1470|
|00001f50| 3a 20 50 4f 4b 45 20 33 | 34 2c 30 3a 20 48 4f 4d |: POKE 3|4,0: HOM|
|00001f60| 45 20 3a 20 45 4e 44 20 | 0a 31 34 34 30 20 20 52 |E : END |.1440  R|
|00001f70| 45 4d 20 0a 31 34 35 30 | 20 20 52 45 4d 20 20 20 |EM .1450|  REM   |
|00001f80| 53 4c 4f 57 50 52 49 4e | 54 20 53 55 42 52 4f 55 |SLOWPRIN|T SUBROU|
|00001f90| 54 49 4e 45 0a 31 34 36 | 30 20 20 52 45 4d 20 0a |TINE.146|0  REM .|
|00001fa0| 31 34 37 30 20 20 53 50 | 45 45 44 3d 20 31 37 35 |1470  SP|EED= 175|
|00001fb0| 3a 20 48 54 41 42 20 31 | 30 3a 20 46 4f 52 20 58 |: HTAB 1|0: FOR X|
|00001fc0| 20 3d 20 31 20 54 4f 20 | 20 4c 45 4e 28 53 54 24 | = 1 TO | LEN(ST$|
|00001fd0| 29 3a 20 50 52 49 4e 54 | 20 20 4d 49 44 24 20 28 |): PRINT|  MID$ (|
|00001fe0| 53 54 24 2c 58 2c 31 29 | 3b 3a 5a 20 3d 20 20 50 |ST$,X,1)|;:Z =  P|
|00001ff0| 45 45 4b 28 20 2d 31 36 | 33 33 36 29 20 2b 20 50 |EEK( -16|336) + P|
|00002000| 45 45 4b 28 20 2d 31 36 | 33 33 36 29 3a 20 46 4f |EEK( -16|336): FO|
|00002010| 52 20 59 20 3d 20 31 20 | 54 4f 20 32 30 3a 20 4e |R Y = 1 |TO 20: N|
|00002020| 45 58 54 20 3a 20 4e 45 | 58 54 20 3a 20 50 52 49 |EXT : NE|XT : PRI|
|00002030| 4e 54 20 3a 20 53 50 45 | 45 44 3d 20 32 35 35 3a |NT : SPE|ED= 255:|
|00002040| 20 46 4f 52 20 49 20 3d | 20 31 20 54 4f 20 31 30 | FOR I =| 1 TO 10|
|00002050| 30 30 3a 20 4e 45 58 54 | 20 3a 20 52 45 54 55 52 |00: NEXT| : RETUR|
|00002060| 4e 20 0a 31 34 38 30 20 | 20 52 45 4d 20 0a 31 34 |N .1480 | REM .14|
|00002070| 39 30 20 20 52 45 4d 20 | 20 20 53 54 41 52 54 20 |90  REM |  START |
|00002080| 4f 46 20 53 45 54 2d 55 | 50 0a 31 35 30 30 20 20 |OF SET-U|P.1500  |
|00002090| 52 45 4d 20 0a 31 35 31 | 30 20 20 48 4f 4d 45 20 |REM .151|0  HOME |
|000020a0| 3a 20 56 54 41 42 20 31 | 30 3a 20 50 52 49 4e 54 |: VTAB 1|0: PRINT|
|000020b0| 20 22 57 48 41 54 20 44 | 4f 20 59 4f 55 20 57 49 | "WHAT D|O YOU WI|
|000020c0| 53 48 20 54 4f 20 50 52 | 49 4e 54 22 3a 20 50 52 |SH TO PR|INT": PR|
|000020d0| 49 4e 54 20 22 20 20 4f | 4e 20 4c 49 4e 45 20 22 |INT "  O|N LINE "|
|000020e0| 3b 4b 3b 22 20 3f 20 22 | 0a 31 35 32 30 20 20 56 |;K;" ? "|.1520  V|
|000020f0| 54 41 42 20 31 33 3a 20 | 48 54 41 42 20 31 3a 20 |TAB 13: |HTAB 1: |
|00002100| 46 4f 52 20 4c 20 3d 20 | 31 20 54 4f 20 33 39 3a |FOR L = |1 TO 39:|
|00002110| 20 50 52 49 4e 54 20 22 | 2e 22 3b 3a 20 4e 45 58 | PRINT "|.";: NEX|
|00002120| 54 20 3a 20 50 52 49 4e | 54 20 22 5e 22 3b 3a 20 |T : PRIN|T "^";: |
|00002130| 46 4f 52 20 4c 20 3d 20 | 31 20 54 4f 20 33 39 3a |FOR L = |1 TO 39:|
|00002140| 20 50 52 49 4e 54 20 22 | 2e 22 3b 3a 20 4e 45 58 | PRINT "|.";: NEX|
|00002150| 54 20 3a 20 50 52 49 4e | 54 20 22 5e 22 3b 3a 20 |T : PRIN|T "^";: |
|00002160| 46 4f 52 20 49 20 3d 20 | 31 20 54 4f 20 35 32 3a |FOR I = |1 TO 52:|
|00002170| 20 50 52 49 4e 54 20 22 | 2e 22 3b 3a 20 4e 45 58 | PRINT "|.";: NEX|
|00002180| 54 20 3a 20 56 54 41 42 | 20 31 33 3a 20 48 54 41 |T : VTAB| 13: HTA|
|00002190| 42 20 31 0a 31 35 32 35 | 20 20 43 41 4c 4c 20 35 |B 1.1525|  CALL 5|
|000021a0| 34 35 37 32 3a 20 46 4f | 52 20 42 20 3d 20 35 31 |4572: FO|R B = 51|
|000021b0| 32 20 54 4f 20 37 36 38 | 3a 20 49 46 20 20 50 45 |2 TO 768|: IF  PE|
|000021c0| 45 4b 28 42 29 20 3c 20 | 3e 30 20 20 54 48 45 4e |EK(B) < |>0  THEN|
|000021d0| 20 20 4e 45 58 54 20 0a | 31 35 33 30 20 54 24 28 |  NEXT .|1530 T$(|
|000021e0| 4b 29 20 3d 20 22 22 3a | 41 44 20 3d 20 20 56 41 |K) = "":|AD =  VA|
|000021f0| 4c 28 54 24 28 4b 29 29 | 20 2b 20 50 45 45 4b 28 |L(T$(K))| + PEEK(|
|00002200| 31 33 31 29 20 2b 32 35 | 36 20 2a 20 50 45 45 4b |131) +25|6 * PEEK|
|00002210| 28 31 33 32 29 3a 20 50 | 4f 4b 45 20 41 44 2c 42 |(132): P|OKE AD,B|
|00002220| 20 2d 35 31 32 3a 20 50 | 4f 4b 45 20 41 44 20 2b | -512: P|OKE AD +|
|00002230| 31 2c 30 3a 20 50 4f 4b | 45 20 41 44 20 2b 32 2c |1,0: POK|E AD +2,|
|00002240| 32 3a 54 24 28 4b 29 20 | 3d 20 20 4d 49 44 24 20 |2:T$(K) |=  MID$ |
|00002250| 28 54 24 28 4b 29 2c 31 | 29 3a 42 20 3d 20 37 36 |(T$(K),1|):B = 76|
|00002260| 38 3a 20 4e 45 58 54 20 | 0a 31 35 34 30 20 20 48 |8: NEXT |.1540  H|
|00002270| 4f 4d 45 20 3a 20 56 54 | 41 42 20 31 30 3a 20 50 |OME : VT|AB 10: P|
|00002280| 52 49 4e 54 20 22 50 4c | 45 41 53 45 20 53 45 4c |RINT "PL|EASE SEL|
|00002290| 45 43 54 20 4f 4e 45 20 | 4f 46 20 2d 22 3a 20 50 |ECT ONE |OF -": P|
|000022a0| 52 49 4e 54 20 3a 20 46 | 4f 52 20 49 20 3d 20 31 |RINT : F|OR I = 1|
|000022b0| 20 54 4f 20 4e 43 3a 20 | 50 52 49 4e 54 20 22 20 | TO NC: |PRINT " |
|000022c0| 20 20 3c 22 49 22 3e 20 | 22 50 4e 24 28 49 29 3a |  <"I"> |"PN$(I):|
|000022d0| 20 4e 45 58 54 20 49 3a | 20 50 52 49 4e 54 20 3a | NEXT I:| PRINT :|
|000022e0| 20 50 52 49 4e 54 20 22 | 20 20 20 3c 20 3e 22 3b | PRINT "|   < >";|
|000022f0| 42 53 24 3b 42 53 24 3b | 3a 20 47 45 54 20 58 24 |BS$;BS$;|: GET X$|
|00002300| 3a 20 50 52 49 4e 54 20 | 58 24 0a 31 35 35 30 20 |: PRINT |X$.1550 |
|00002310| 20 52 45 4d 20 0a 31 35 | 36 30 20 20 52 45 4d 20 | REM .15|60  REM |
|00002320| 20 43 45 4e 54 45 52 49 | 4e 47 20 43 41 4c 43 55 | CENTERI|NG CALCU|
|00002330| 4c 41 54 49 4f 4e 0a 31 | 35 37 30 20 20 52 45 4d |LATION.1|570  REM|
|00002340| 20 0a 31 35 38 30 20 20 | 49 46 20 58 24 20 3c 22 | .1580  |IF X$ <"|
|00002350| 31 22 20 20 4f 52 20 58 | 24 20 3e 20 53 54 52 24 |1"  OR X|$ > STR$|
|00002360| 28 4e 43 29 20 20 54 48 | 45 4e 20 20 50 52 49 4e |(NC)  TH|EN  PRIN|
|00002370| 54 20 42 4c 24 3b 42 4c | 24 3a 20 50 52 49 4e 54 |T BL$;BL|$: PRINT|
|00002380| 20 22 53 4f 52 52 59 2c | 20 49 54 20 4d 55 53 54 | "SORRY,| IT MUST|
|00002390| 20 42 45 20 4f 4e 45 20 | 4f 46 20 43 2c 20 49 2c | BE ONE |OF C, I,|
|000023a0| 20 57 2c 20 4f 52 20 52 | 22 3a 20 50 52 49 4e 54 | W, OR R|": PRINT|
|000023b0| 20 3a 20 50 52 49 4e 54 | 20 3a 20 47 4f 53 55 42 | : PRINT| : GOSUB|
|000023c0| 20 31 39 39 30 3a 20 47 | 4f 54 4f 20 31 35 34 30 | 1990: G|OTO 1540|
|000023d0| 0a 31 35 39 30 20 58 28 | 4b 29 20 3d 20 20 56 41 |.1590 X(|K) =  VA|
|000023e0| 4c 28 58 24 29 3a 4d 28 | 4b 29 20 3d 20 34 30 3a |L(X$):M(|K) = 40:|
|000023f0| 4c 28 4b 29 20 3d 20 38 | 30 20 2a 20 4c 45 4e 28 |L(K) = 8|0 * LEN(|
|00002400| 54 24 28 4b 29 29 2f 4c | 4c 28 58 28 4b 29 29 0a |T$(K))/L|L(X(K)).|
|00002410| 31 36 30 30 20 20 50 4f | 4b 45 20 20 2d 31 36 33 |1600  PO|KE  -163|
|00002420| 36 38 2c 30 3a 20 48 54 | 41 42 20 31 3a 20 56 54 |68,0: HT|AB 1: VT|
|00002430| 41 42 20 32 30 3a 20 50 | 52 49 4e 54 20 22 44 4f |AB 20: P|RINT "DO|
|00002440| 20 59 4f 55 20 57 41 4e | 54 20 42 4f 4c 44 2d 46 | YOU WAN|T BOLD-F|
|00002450| 41 43 45 20 50 52 49 4e | 54 20 3c 59 2f 4e 3e 3f |ACE PRIN|T <Y/N>?|
|00002460| 20 20 3c 20 3e 22 3b 42 | 53 24 3b 42 53 24 3b 3a |  < >";B|S$;BS$;:|
|00002470| 20 47 45 54 20 45 24 3a | 20 50 52 49 4e 54 20 45 | GET E$:| PRINT E|
|00002480| 24 3a 20 49 46 20 45 24 | 20 3c 20 3e 22 4e 22 20 |$: IF E$| < >"N" |
|00002490| 20 41 4e 44 20 45 24 20 | 3c 20 3e 20 43 48 52 24 | AND E$ |< > CHR$|
|000024a0| 28 31 31 30 29 20 20 41 | 4e 44 20 45 24 20 3c 20 |(110)  A|ND E$ < |
|000024b0| 3e 20 43 48 52 24 28 31 | 32 31 29 20 20 41 4e 44 |> CHR$(1|21)  AND|
|000024c0| 20 45 24 20 3c 20 3e 22 | 59 22 20 20 54 48 45 4e | E$ < >"|Y"  THEN|
|000024d0| 20 31 36 30 30 0a 31 36 | 31 30 20 45 24 28 4b 29 | 1600.16|10 E$(K)|
|000024e0| 20 3d 20 45 24 0a 31 36 | 32 30 20 4c 45 28 4b 29 | = E$.16|20 LE(K)|
|000024f0| 20 3d 20 28 4c 28 4b 29 | 29 2f 32 0a 31 36 33 30 | = (L(K)|)/2.1630|
|00002500| 20 59 28 4b 29 20 3d 20 | 4d 28 4b 29 20 2d 4c 45 | Y(K) = |M(K) -LE|
|00002510| 28 4b 29 0a 31 36 34 30 | 20 20 49 46 20 43 45 24 |(K).1640|  IF CE$|
|00002520| 20 3d 20 22 4e 22 20 20 | 4f 52 20 43 45 24 20 3d | = "N"  |OR CE$ =|
|00002530| 20 20 43 48 52 24 28 31 | 31 30 29 20 20 54 48 45 |  CHR$(1|10)  THE|
|00002540| 4e 20 59 28 4b 29 20 3d | 20 31 0a 31 36 35 30 20 |N Y(K) =| 1.1650 |
|00002550| 20 52 45 54 55 52 4e 20 | 0a 31 36 36 30 20 20 52 | RETURN |.1660  R|
|00002560| 45 4d 20 0a 31 36 37 30 | 20 20 52 45 4d 20 20 20 |EM .1670|  REM   |
|00002570| 50 52 49 4e 54 45 52 20 | 50 52 45 50 41 52 41 54 |PRINTER |PREPARAT|
|00002580| 49 4f 4e 0a 31 36 38 30 | 20 20 52 45 4d 20 0a 31 |ION.1680|  REM .1|
|00002590| 36 39 30 20 20 56 54 41 | 42 20 32 33 3a 20 48 54 |690  VTA|B 23: HT|
|000025a0| 41 42 20 31 3a 20 43 41 | 4c 4c 20 20 2d 39 35 38 |AB 1: CA|LL  -958|
|000025b0| 0a 31 37 30 30 20 20 56 | 54 41 42 20 32 33 3a 20 |.1700  V|TAB 23: |
|000025c0| 48 54 41 42 20 31 3a 20 | 50 52 49 4e 54 20 22 20 |HTAB 1: |PRINT " |
|000025d0| 50 4c 45 41 53 45 20 20 | 20 20 20 20 20 20 20 20 |PLEASE  |        |
|000025e0| 20 20 20 20 20 20 20 41 | 4e 44 20 50 52 45 53 53 |       A|ND PRESS|
|000025f0| 20 41 20 4b 45 59 22 3b | 3a 20 46 4f 52 20 50 41 | A KEY";|: FOR PA|
|00002600| 55 53 45 20 3d 20 31 20 | 54 4f 20 32 35 30 3a 20 |USE = 1 |TO 250: |
|00002610| 4e 45 58 54 20 3a 20 56 | 54 41 42 20 32 33 3a 20 |NEXT : V|TAB 23: |
|00002620| 48 54 41 42 20 31 3a 20 | 50 52 49 4e 54 20 22 20 |HTAB 1: |PRINT " |
|00002630| 50 4c 45 41 53 45 20 50 | 52 45 50 41 52 45 20 50 |PLEASE P|REPARE P|
|00002640| 52 49 4e 54 45 52 20 41 | 4e 44 20 50 52 45 53 53 |RINTER A|ND PRESS|
|00002650| 20 41 20 4b 45 59 22 3b | 3a 20 46 4f 52 20 50 41 | A KEY";|: FOR PA|
|00002660| 55 53 45 20 3d 20 31 20 | 54 4f 20 32 35 30 3a 20 |USE = 1 |TO 250: |
|00002670| 4e 45 58 54 20 3a 20 49 | 46 20 20 50 45 45 4b 28 |NEXT : I|F  PEEK(|
|00002680| 20 2d 31 36 33 38 34 29 | 20 3c 31 32 38 20 47 4f | -16384)| <128 GO|
|00002690| 54 4f 20 31 36 39 30 3a | 20 52 45 4d 20 31 37 20 |TO 1690:| REM 17 |
|000026a0| 53 50 41 43 45 53 0a 31 | 37 31 30 20 20 56 54 41 |SPACES.1|710  VTA|
|000026b0| 42 20 32 33 3a 20 43 41 | 4c 4c 20 20 2d 39 35 38 |B 23: CA|LL  -958|
|000026c0| 0a 31 37 32 30 20 20 52 | 45 54 55 52 4e 20 0a 31 |.1720  R|ETURN .1|
|000026d0| 37 33 30 20 20 52 45 4d | 20 0a 31 37 34 30 20 20 |730  REM| .1740  |
|000026e0| 52 45 4d 20 20 55 53 45 | 52 27 53 20 56 45 52 49 |REM  USE|R'S VERI|
|000026f0| 46 49 43 41 54 49 4f 4e | 20 4f 46 20 53 45 54 2d |FICATION| OF SET-|
|00002700| 55 50 0a 31 37 35 30 20 | 20 52 45 4d 20 0a 31 37 |UP.1750 | REM .17|
|00002710| 36 30 20 20 48 4f 4d 45 | 20 3a 20 50 52 49 4e 54 |60  HOME| : PRINT|
|00002720| 20 22 53 55 4d 4d 41 52 | 59 20 4f 46 20 54 48 45 | "SUMMAR|Y OF THE|
|00002730| 20 46 4f 52 4d 41 54 20 | 59 4f 55 20 48 41 56 45 | FORMAT |YOU HAVE|
|00002740| 20 43 48 4f 53 45 4e 20 | 3a 22 3a 20 50 52 49 4e | CHOSEN |:": PRIN|
|00002750| 54 20 3a 20 50 52 49 4e | 54 20 22 4c 49 4e 45 53 |T : PRIN|T "LINES|
|00002760| 20 50 45 52 20 46 4f 52 | 4d 20 3d 20 22 3b 4d 3a | PER FOR|M = ";M:|
|00002770| 20 50 52 49 4e 54 20 22 | 42 4c 41 4e 4b 20 4c 49 | PRINT "|BLANK LI|
|00002780| 4e 45 53 20 42 45 54 57 | 45 45 4e 20 46 4f 52 4d |NES BETW|EEN FORM|
|00002790| 53 20 3d 20 22 3b 4c 3a | 20 50 52 49 4e 54 20 22 |S = ";L:| PRINT "|
|000027a0| 4e 4f 2e 20 4f 46 20 52 | 45 50 45 54 49 54 49 4f |NO. OF R|EPETITIO|
|000027b0| 4e 53 20 3d 20 22 3b 52 | 3a 20 50 52 49 4e 54 20 |NS = ";R|: PRINT |
|000027c0| 22 46 49 52 53 54 20 4c | 49 4e 45 20 49 53 20 22 |"FIRST L|INE IS "|
|000027d0| 3b 48 3b 22 20 4c 49 4e | 45 28 53 29 20 46 52 4f |;H;" LIN|E(S) FRO|
|000027e0| 4d 20 54 4f 50 22 3a 0a | 31 37 37 30 20 20 49 46 |M TOP":.|1770  IF|
|000027f0| 20 43 45 24 20 3d 20 22 | 59 22 20 20 4f 52 20 43 | CE$ = "|Y"  OR C|
|00002800| 45 24 20 3d 20 20 43 48 | 52 24 28 31 32 31 29 20 |E$ =  CH|R$(121) |
|00002810| 20 54 48 45 4e 20 20 50 | 52 49 4e 54 20 22 54 45 | THEN  P|RINT "TE|
|00002820| 58 54 20 49 53 20 43 45 | 4e 54 45 52 45 44 22 3a |XT IS CE|NTERED":|
|00002830| 20 47 4f 54 4f 20 31 37 | 39 30 0a 31 37 38 30 20 | GOTO 17|90.1780 |
|00002840| 20 50 52 49 4e 54 20 22 | 54 45 58 54 20 49 53 20 | PRINT "|TEXT IS |
|00002850| 4c 45 46 54 20 4a 55 53 | 54 49 46 49 45 44 22 0a |LEFT JUS|TIFIED".|
|00002860| 31 37 39 30 20 20 50 4f | 4b 45 20 33 34 2c 39 3a |1790  PO|KE 34,9:|
|00002870| 20 53 50 45 45 44 3d 20 | 32 30 30 0a 31 38 30 30 | SPEED= |200.1800|
|00002880| 20 20 46 4f 52 20 4b 20 | 3d 20 31 20 54 4f 20 4d |  FOR K |= 1 TO M|
|00002890| 3a 20 50 52 49 4e 54 20 | 22 4c 49 4e 45 20 23 20 |: PRINT |"LINE # |
|000028a0| 22 3b 4b 3b 22 3a 20 22 | 3b 54 24 28 4b 29 3a 20 |";K;": "|;T$(K): |
|000028b0| 4e 45 58 54 20 3a 20 50 | 52 49 4e 54 20 0a 31 38 |NEXT : P|RINT .18|
|000028c0| 31 30 20 20 53 50 45 45 | 44 3d 20 32 35 35 3a 20 |10  SPEE|D= 255: |
|000028d0| 50 4f 4b 45 20 20 2d 31 | 36 33 36 38 2c 30 3a 20 |POKE  -1|6368,0: |
|000028e0| 48 54 41 42 20 31 3a 20 | 56 54 41 42 20 32 33 3a |HTAB 1: |VTAB 23:|
|000028f0| 20 43 41 4c 4c 20 20 2d | 38 36 38 3a 20 50 52 49 | CALL  -|868: PRI|
|00002900| 4e 54 20 22 49 53 20 54 | 48 49 53 20 53 45 54 2d |NT "IS T|HIS SET-|
|00002910| 55 50 20 4f 4b 20 3c 59 | 2f 4e 3e 20 3f 20 3c 20 |UP OK <Y|/N> ? < |
|00002920| 3e 22 3b 42 53 24 3b 42 | 53 24 3b 3a 20 47 45 54 |>";BS$;B|S$;: GET|
|00002930| 20 41 24 3a 20 50 52 49 | 4e 54 20 41 24 3b 3a 20 | A$: PRI|NT A$;: |
|00002940| 50 4f 4b 45 20 33 34 2c | 31 0a 31 38 32 30 20 20 |POKE 34,|1.1820  |
|00002950| 49 46 20 41 24 20 3d 20 | 22 59 22 20 20 4f 52 20 |IF A$ = |"Y"  OR |
|00002960| 41 24 20 3d 20 20 43 48 | 52 24 28 31 32 31 29 20 |A$ =  CH|R$(121) |
|00002970| 47 4f 54 4f 20 38 33 30 | 0a 31 38 33 30 20 20 49 |GOTO 830|.1830  I|
|00002980| 46 20 41 24 20 3d 20 22 | 4e 22 20 20 4f 52 20 41 |F A$ = "|N"  OR A|
|00002990| 24 20 3d 20 20 43 48 52 | 24 28 31 31 30 29 20 20 |$ =  CHR|$(110)  |
|000029a0| 54 48 45 4e 20 20 48 4f | 4d 45 20 3a 20 47 4f 54 |THEN  HO|ME : GOT|
|000029b0| 4f 20 36 33 30 0a 31 38 | 34 30 20 20 50 52 49 4e |O 630.18|40  PRIN|
|000029c0| 54 20 42 4c 24 3b 42 4c | 24 3b 3a 20 47 4f 54 4f |T BL$;BL|$;: GOTO|
|000029d0| 20 31 38 31 30 0a 31 38 | 35 30 20 20 52 45 4d 20 | 1810.18|50  REM |
|000029e0| 0a 31 38 36 30 20 20 52 | 45 4d 20 20 20 20 45 52 |.1860  R|EM    ER|
|000029f0| 52 4f 52 20 54 52 41 50 | 53 0a 31 38 37 30 20 20 |ROR TRAP|S.1870  |
|00002a00| 52 45 4d 20 20 0a 31 38 | 38 30 20 45 52 20 3d 20 |REM  .18|80 ER = |
|00002a10| 20 50 45 45 4b 28 32 32 | 32 29 3a 45 4c 20 3d 20 | PEEK(22|2):EL = |
|00002a20| 20 50 45 45 4b 28 32 31 | 38 29 20 2b 32 35 36 20 | PEEK(21|8) +256 |
|00002a30| 2a 20 50 45 45 4b 28 32 | 31 39 29 3a 20 43 41 4c |* PEEK(2|19): CAL|
|00002a40| 4c 20 20 2d 33 32 38 38 | 0a 31 38 39 30 20 20 49 |L  -3288|.1890  I|
|00002a50| 46 20 45 52 20 3d 20 35 | 20 20 4f 52 20 45 52 20 |F ER = 5|  OR ER |
|00002a60| 3d 20 36 20 20 4f 52 20 | 45 52 20 3d 20 34 20 20 |= 6  OR |ER = 4  |
|00002a70| 4f 52 20 45 52 20 3d 20 | 38 20 20 4f 52 20 45 52 |OR ER = |8  OR ER|
|00002a80| 20 3d 20 39 20 20 54 48 | 45 4e 20 20 50 52 49 4e | = 9  TH|EN  PRIN|
|00002a90| 54 20 44 24 3b 22 43 4c | 4f 53 45 22 3b 46 24 0a |T D$;"CL|OSE";F$.|
|00002aa0| 31 39 30 30 20 20 49 46 | 20 45 52 20 3d 20 38 20 |1900  IF| ER = 8 |
|00002ab0| 20 54 48 45 4e 20 20 50 | 52 49 4e 54 20 22 49 2f | THEN  P|RINT "I/|
|00002ac0| 4f 20 45 52 52 4f 52 2d | 2d 43 48 45 43 4b 20 44 |O ERROR-|-CHECK D|
|00002ad0| 52 49 56 45 20 44 4f 4f | 52 22 3a 20 47 4f 54 4f |RIVE DOO|R": GOTO|
|00002ae0| 20 31 39 35 30 0a 31 39 | 31 30 20 20 49 46 20 45 | 1950.19|10  IF E|
|00002af0| 52 20 3d 20 34 20 20 54 | 48 45 4e 20 20 50 52 49 |R = 4  T|HEN  PRI|
|00002b00| 4e 54 20 22 44 49 53 4b | 20 49 53 20 57 52 49 54 |NT "DISK| IS WRIT|
|00002b10| 45 2d 50 52 4f 54 45 43 | 54 45 44 2e 22 3a 20 47 |E-PROTEC|TED.": G|
|00002b20| 4f 54 4f 20 31 39 35 30 | 0a 31 39 32 30 20 20 49 |OTO 1950|.1920  I|
|00002b30| 46 20 45 52 20 3d 20 39 | 20 20 54 48 45 4e 20 20 |F ER = 9|  THEN  |
|00002b40| 50 52 49 4e 54 20 22 44 | 49 53 4b 20 49 53 20 46 |PRINT "D|ISK IS F|
|00002b50| 55 4c 4c 2e 20 49 4e 53 | 45 52 54 20 41 4e 4f 54 |ULL. INS|ERT ANOT|
|00002b60| 48 45 52 20 44 49 53 4b | 2e 22 3a 20 47 4f 54 4f |HER DISK|.": GOTO|
|00002b70| 20 31 39 35 30 0a 31 39 | 33 30 20 20 49 46 20 46 | 1950.19|30  IF F|
|00002b80| 4c 41 47 20 3d 20 32 20 | 20 41 4e 44 20 45 52 20 |LAG = 2 | AND ER |
|00002b90| 3d 20 35 20 20 4f 52 20 | 45 52 20 3d 20 36 20 20 |= 5  OR |ER = 6  |
|00002ba0| 4f 52 20 45 52 20 3d 20 | 32 35 34 20 20 54 48 45 |OR ER = |254  THE|
|00002bb0| 4e 20 20 50 52 49 4e 54 | 20 46 24 22 20 4e 4f 54 |N  PRINT| F$" NOT|
|00002bc0| 20 4f 4e 20 54 48 49 53 | 20 44 49 53 4b 2e 22 3a | ON THIS| DISK.":|
|00002bd0| 20 47 4f 54 4f 20 31 39 | 35 30 0a 31 39 34 30 20 | GOTO 19|50.1940 |
|00002be0| 20 50 52 49 4e 54 20 22 | 45 52 52 4f 52 20 22 45 | PRINT "|ERROR "E|
|00002bf0| 52 22 20 49 4e 20 4c 49 | 4e 45 20 22 45 4c 22 2e |R" IN LI|NE "EL".|
|00002c00| 22 0a 31 39 35 30 20 20 | 47 4f 53 55 42 20 31 39 |".1950  |GOSUB 19|
|00002c10| 39 30 3a 20 4f 4e 20 46 | 4c 41 47 20 47 4f 54 4f |90: ON F|LAG GOTO|
|00002c20| 20 34 32 30 2c 34 32 30 | 2c 34 32 30 2c 31 31 35 | 420,420|,420,115|
|00002c30| 30 0a 31 39 36 30 20 20 | 52 45 4d 20 0a 31 39 37 |0.1960  |REM .197|
|00002c40| 30 20 20 52 45 4d 20 20 | 50 52 45 53 53 20 41 20 |0  REM  |PRESS A |
|00002c50| 4b 45 59 20 52 4f 55 54 | 49 4e 45 0a 31 39 38 30 |KEY ROUT|INE.1980|
|00002c60| 20 20 52 45 4d 20 0a 31 | 39 39 30 20 20 56 54 41 |  REM .1|990  VTA|
|00002c70| 42 20 32 34 3a 20 43 41 | 4c 4c 20 20 2d 38 36 38 |B 24: CA|LL  -868|
|00002c80| 3a 20 48 54 41 42 20 37 | 3a 20 50 52 49 4e 54 20 |: HTAB 7|: PRINT |
|00002c90| 22 50 52 45 53 53 20 20 | 20 20 20 20 20 20 20 20 |"PRESS  |        |
|00002ca0| 54 4f 20 43 4f 4e 54 49 | 4e 55 45 22 3b 3a 20 46 |TO CONTI|NUE";: F|
|00002cb0| 4f 52 20 50 41 55 53 45 | 20 3d 20 31 20 54 4f 20 |OR PAUSE| = 1 TO |
|00002cc0| 32 35 30 3a 20 4e 45 58 | 54 20 3a 20 56 54 41 42 |250: NEX|T : VTAB|
|00002cd0| 20 32 34 3a 20 48 54 41 | 42 20 37 3a 20 50 52 49 | 24: HTA|B 7: PRI|
|00002ce0| 4e 54 20 22 50 52 45 53 | 53 20 3c 52 45 54 55 52 |NT "PRES|S <RETUR|
|00002cf0| 4e 3e 20 54 4f 20 43 4f | 4e 54 49 4e 55 45 22 3b |N> TO CO|NTINUE";|
|00002d00| 3a 20 46 4f 52 20 50 41 | 55 53 45 20 3d 20 31 20 |: FOR PA|USE = 1 |
|00002d10| 54 4f 20 32 35 30 3a 20 | 4e 45 58 54 20 3a 20 49 |TO 250: |NEXT : I|
|00002d20| 46 20 20 50 45 45 4b 28 | 20 2d 31 36 33 38 34 29 |F  PEEK(| -16384)|
|00002d30| 20 3c 31 32 38 20 47 4f | 54 4f 20 31 39 39 30 3a | <128 GO|TO 1990:|
|00002d40| 20 52 45 4d 20 31 30 20 | 53 50 41 43 45 53 0a 32 | REM 10 |SPACES.2|
|00002d50| 30 30 30 20 20 50 4f 4b | 45 20 20 2d 31 36 33 36 |000  POK|E  -1636|
|00002d60| 38 2c 30 3a 20 50 52 49 | 4e 54 20 0a 32 30 31 30 |8,0: PRI|NT .2010|
|00002d70| 20 20 52 45 54 55 52 4e | 20 0a 32 30 32 30 20 20 |  RETURN| .2020  |
|00002d80| 52 45 4d 20 0a 32 30 33 | 30 20 20 52 45 4d 20 20 |REM .203|0  REM  |
|00002d90| 53 43 52 45 45 4e 20 53 | 43 52 4f 4c 4c 0a 32 30 |SCREEN S|CROLL.20|
|00002da0| 34 30 20 20 52 45 4d 20 | 0a 32 30 35 30 20 20 56 |40  REM |.2050  V|
|00002db0| 54 41 42 20 32 34 3a 20 | 46 4f 52 20 49 20 3d 20 |TAB 24: |FOR I = |
|00002dc0| 31 20 54 4f 20 32 34 3a | 20 50 52 49 4e 54 20 3a |1 TO 24:| PRINT :|
|00002dd0| 20 46 4f 52 20 4a 20 3d | 20 31 20 54 4f 20 37 35 | FOR J =| 1 TO 75|
|00002de0| 3a 20 4e 45 58 54 20 3a | 20 4e 45 58 54 20 3a 20 |: NEXT :| NEXT : |
|00002df0| 48 4f 4d 45 20 3a 20 52 | 45 54 55 52 4e 20       |HOME : R|ETURN   |
+--------+-------------------------+-------------------------+--------+--------+