System 15000: sys1.B

Is a part of release: System 15000
File size: 34712
md5: 52f115f82edfaec449f57a2c665e3bfa
  0 POKE 23851,0: POKE 23852,3
  2 REM       system 15000      
  65535 CLEAR 62999
  4 LET A=PEEK 23730+PEEK 23731*256: POKE A-3,0: POKE A-2,0: LOAD "sys2"CODE 
  5 POKE 23658,8: GO TO 25
  6 FOR E=1 TO 5: BEEP .01=,10: BEEP .01=,10.5: NEXT E: FOR J=1 TO 50: NEXT J: FOR E=1 TO 5: BEEP .01=,10: BEEP .01=,10.5: NEXT E: FOR J=1 TO 150: NEXT J: RETURN 
  7 FOR E=1 TO 15: BEEP .005=,5: BEEP .005=,5.05[K]: NEXT E: FOR J=1 TO 150: NEXT J: RETURN 
  25 GO SUB 500
  30 BRIGHT 1: BORDER 0: PAPER 0: CLS 
  32 LET s1=0: LET di=0: LET sn=0: LET nb=0: LET df=0: DIM s(5)
  33 LET Z$="                                "
  34 LET L$="[K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K]"
  35 LET S$=" * SYSTEM 15OOO * TD:OO:54 * ON LINE": LET S$=S$+S$: LET M$=S$: LET I$=" * INCOMING DATA * PLEASE ENABLE": LET I$=I$+I$: LET y$="": LET U$="          NO MESSAGE": GO TO 195
  50 FOR c=1 TO LEN g$
  53 IF g$(c)<" " THEN  GO SUB 56: GO TO 55
  54 PRINT g$(c);
  55 NEXT c: PRINT : RETURN 
  56 LET code=CODE g$(c)
  57 IF code=16 THEN  INK CODE g$(c+1): GO TO 64
  58 IF code=17 THEN  PAPER CODE g$(c+1): GO TO 64
  59 IF code=18 THEN  FLASH CODE g$(c+1): GO TO 64
  60 IF code=19 THEN  BRIGHT CODE g$(c+1): GO TO 64
  61 IF code=20 THEN  INVERSE CODE g$(c+1): GO TO 64
  62 IF code=21 THEN  OVER CODE g$(c+1): GO TO 64
  63 RETURN 
  64 LET c=c+1: RETURN 
  70 PAPER 0: FOR c=21 TO 2 STEP -1: PRINT AT c,0;Z$;: NEXT c: PRINT AT 2,0;: RETURN 
  195 RESTORE 650: LET g$="A": GO SUB 440: LET g$="B": GO SUB 440: LET g$="C": GO SUB 440: LET g$="D": GO SUB 440: LET g$="E": GO SUB 440: LET g$="F": GO SUB 440: LET g$="G": GO SUB 440: LET g$="K": GO SUB 440: LET g$="H": GO SUB 440: LET g$="I": GO SUB 440: LET g$="J": GO SUB 440
  196 LET x$="[K]"
  197 POKE 23606,24: POKE 23607,245
  198 GO SUB 9100
  200 PAPER 0: INK 2: LET posit=1: CLS : PRINT AT 0,0;"[B][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][D]";AT 1,0;"[C]";AT 1,31;"[C]";AT 2,0;"[E][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][F]";AT 3,0;"[B][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][D]";AT 4,0;"[C]";AT 4,31;"[C]";AT 5,0;"[E][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][F]";AT 7,3;"[B][A][A][A][A][A][A][A][A][A][A][D]";AT 8,3;"[C]";AT 8,14;"[C]";AT 9,3;"[E][A][A][A][A][A][A][A][A][A][A][F]";AT 7,17;"[B][A][A][A][A][A][A][A][A][A][A][D]";AT 8,17;"[C]";AT 8,28;"[C]";AT 9,17;"[E][A][A][A][A][A][A][A][A][A][A][F]": GO SUB 540
  209 LET SQ=INT (RND*254)+1: LET SR=280-(INT (RND*254)+1): LET SS=100-INT (SQ/SR)
  210 INK 6: FOR c=0 TO 1: PRINT AT 1+c*3,6;b$: NEXT c
  218 PRINT AT 8,5;"STATUS "; INK 4; FLASH 1;""; FLASH 0
  219 PRINT  INK 6;AT 8,19;"INT OK:OO"
  220 FOR c=0 TO 1: PRINT AT 1+c*3,2;"99";STR$ c;AT 1+c*3,INT (RND*8)+6;INT (RND*2);AT 1+c*3,17;"62";CHR$ (65+INT (RND*2));"34";AT 1+c*3,23;PEEK 23673;":";PEEK 23672: NEXT c
  260 PRINT AT 21,5; INK 7;M$(posit TO posit+19): LET posit=posit*(posit<(LEN M$/2))+2
  264 IF INKEY$="" THEN  GO TO 220
  265 LET g$=INKEY$: IF g$<"1" OR g$>"4" THEN  GO TO 220
  275 PRINT AT 8,12; INK 2; FLASH 1;"";AT 8,23; FLASH 0; INK 6;"BUSY ": FOR j=1 TO 100: NEXT j
  278 IF b=1 AND g$<>"4" THEN  GO TO 220
  280 IF g$="1" THEN  GO TO 200
  290 IF g$="2" THEN  GO SUB 1500: GO TO 200
  300 IF g$="3" THEN  GO SUB 330
  310 IF g$="4" THEN  GO SUB 600
  320 GO TO 200
  326 PRINT AT 21,5; INK 7;M$(posit TO posit+19): LET posit=posit+1: IF posit>=(LEN M$/2) THEN  LET posit=1
  327 RETURN 
  330 CLS : PRINT AT 10,8;"<S>AVE OR <L>OAD?"
  332 GO SUB 2000
  334 IF INKEY$="X" THEN  RETURN 
  335 IF INKEY$="S" THEN  GO TO 370
  336 IF INKEY$<>"L" THEN  GO TO 334
  337 PRINT AT 10,19;"L": GO SUB 390
  338 LOAD "sysdata" DATA s()
  340 LET di=s(1): LET sn=s(2): LET nb=s(3): LET df=s(4): LET s1=s(5)
  342 RETURN 
  370 PRINT AT 10,9;"S": GO SUB 390: LET s(1)=di: LET s(2)=sn: LET s(3)=nb: LET s(4)=df: LET s(5)=s1
  372 SAVE "sysdata" DATA s()
  374 RETURN 
  390 PRINT AT 12,6;"PRESS <ENTER> WHEN READY"
  392 IF INKEY$<>CHR$ 13 THEN  GO TO 392
  394 RETURN 
  400 POKE 23606,56: POKE 23607,248: RETURN 
  401 POKE 23606,56: POKE 23607,251: RETURN 
  402 POKE 23606,24: POKE 23607,245: RETURN 
  440 FOR c=0 TO 7
  450 READ a$
  460 POKE USR g$+c,VAL ("BIN "+a$)
  470 NEXT c
  480 RETURN 
  482 LET pos=33-PEEK 23688
  483 LET vpos=24-PEEK 23689
  484 RETURN 
  500 LET b$="": FOR b=0 TO 7
  510 LET b$=b$+STR$ INT (RND*2)
  520 NEXT b
  530 RETURN 
  540 FOR c=11 TO 21: PRINT AT c,0;"                               ";: NEXT c
  545 FOR c=11 TO 21: PRINT AT c,0;"                               ";: NEXT c
  550 PRINT  INK 6;AT 12,10;"SELECT>"
  560 PRINT  INK 2;AT 13,10;"[A][A][A][A][A][A][A][A]"
  570 PRINT  INK 6;AT 14,10;"<1> MENU";AT 15,10;"<2> DIAL";AT 16,10;"<3> SAVE";AT 17,10;"<4> ENAB"
  580 PRINT  INK 2;AT 18,10;"[A][A][A][A][A][A][A][A]"
  590 RETURN 
  600 CLS : PAPER 6: INK 2: PRINT Z$;: PRINT AT 0,0;" SYSTEM 15OOO    MESSAGE BOARD"
  602 PRINT AT 21,0;"   PRESS X TO RETURN TO SYSTEM  ";: PAPER 2: INK 6: PRINT AT 10,0;Z$;Z$;Z$
  603 PRINT AT 10,0;U$: LET U$="          NO MESSAGE": LET M$=S$
  604 FOR J=1 TO 600: IF INKEY$="X" THEN  LET J=600: NEXT J: GO TO 606
  605 NEXT J
  606 IF b=1 THEN  GO SUB 610: RETURN 
  607 IF INKEY$<>"X" THEN  GO TO 607
  608 RETURN 
  610 LET b=0: INK 7: PAPER 0: CLS : FOR j=1 TO 60*U: FOR c=1 TO 78: NEXT c: PRINT ".";: NEXT j: RETURN 
  632 FOR j=1 TO 100: NEXT j: INK 4: PAPER 0: PRINT AT 21,3;"* CONNECTION TERMINATED *": FOR j=1 TO 100: NEXT j: CLS : BEEP 0.01=,10: RETURN 
  634 CLS : FOR J=1 TO 50: NEXT J: GO SUB 2650: RETURN 
  635 PAPER 0: CLS : FOR J=1 TO 50: NEXT J: BEEP .5 COPY ,8: RETURN 
  650 DATA "0","0","0","11111111","11111111"
  660 DATA "0","0","0"
  680 DATA "0","0"
  690 DATA "0","1111"
  700 DATA "11111","11000"
  710 DATA "11000","11000"
  730 DATA "11000","11000"
  740 DATA "11000","11000"
  750 DATA "11000","11000"
  760 DATA "11000","11000"
  780 DATA "0","0"
  790 DATA "0","11110000"
  800 DATA "11111000","11000"
  810 DATA "11000","11000"
  830 DATA "11000","11000"
  840 DATA "11000","11111"
  850 DATA "1111","0"
  860 DATA "0","0"
  880 DATA "11000","11000"
  890 DATA "11000","11111000"
  900 DATA "11110000","0"
  910 DATA "0","0"
  930 DATA "0","0"
  940 DATA "0","0"
  950 DATA "0","0"
  960 DATA "1111110","0"
  972 DATA "0","0"
  974 DATA "0","1111110"
  976 DATA "1111110","0"
  978 DATA "0","0"
  980 DATA "0","0","0","0","0","11111111","11111111","0"
  982 DATA "0","11111111","11111111","0","0","0","0","0"
  984 DATA "11111110","11111110","11111110","11111110","11111110","11111110","0","0"
  1500 GO SUB 2000: FOR c=12 TO 18: PRINT AT c,10;"        ": NEXT c: PRINT AT 21,5;"                    "
  1510 INK 6: PRINT AT 11,5; FLASH 1;"DIAL NOW"
  1515 PRINT AT 13,2;"=> ";
  1520 LET n$="": LET us=0: GO SUB 2500: GO SUB 2600
  1525 IF g$="0" THEN  GO SUB 1700
  1530 FOR d=1 TO 6: GO SUB 2600: IF g$="X" THEN  BEEP 0.001[H],10: RETURN 
  1535 IF d=2 THEN  PRINT "-";
  1540 NEXT d
  1545 GO SUB 2000: FOR J=1 TO 20: NEXT J: FOR c=1 TO 4: BEEP 0.003 READ ,INT (RND*4)+20: PAUSE 5: NEXT c
  1550 GO SUB 482: PRINT AT 13,2;"  <";AT vpos,pos;">";AT 11,5;"          ": RESTORE 2710
  1552 LET xpos=pos
  1555 LET n=0
  1560 READ a$: LET n=n+1
  1565 IF a$="999" THEN  GO SUB 1800: PAUSE 50: RETURN 
  1570 IF a$<>n$ THEN  GO TO 1560
  1571 LET c=4: GO SUB 1750
  1575 IF INT (RND*15)=1 THEN  GO SUB 1850: PAUSE 50: RETURN 
  1580 PAUSE 50: FOR C=1 TO RND*5+3: IF us=1 THEN  GO SUB 7: GO TO 1582
  1581 GO SUB 6
  1582 IF INKEY$="X" THEN  RETURN 
  1583 NEXT C: IF us=1 THEN  FOR J=1 TO 100: NEXT J
  1585 GO SUB 250*n+2500
  1590 RETURN 
  1700 LET us=1: FOR d=1 TO 7: GO SUB 2600
  1710 IF d=2 THEN  PRINT "-";
  1715 IF d=3 THEN  PRINT "(";
  1720 IF d=6 THEN  PRINT ")";
  1725 NEXT d: RETURN 
  1750 FOR x=22949 TO 22949+xpos-6: POKE x,c: NEXT x: RETURN 
  1800 LET c=2: GO SUB 1750
  1805 LET z=400: GO SUB 2000
  1810 LET z=z-1: IF z AND INKEY$<>"X" THEN  BEEP 1,9: GO TO 1810
  1812 RETURN 
  1850 LET z=200: GO SUB 2000
  1855 LET c=2: GO SUB 1750
  1860 LET z=z-1: IF z AND INKEY$<>"X" THEN  BEEP 0.353,9: FOR J=1 TO 21: NEXT J: GO TO 1860
  1870 RETURN 
  2000 LET H$=INKEY$
  2010 IF INKEY$<>H$ OR INKEY$="" THEN  RETURN 
  2020 GO TO 2010
  2500 IF INKEY$<"0" OR (INKEY$>"9" AND INKEY$<>"X") THEN  BEEP 0.005=,0: BEEP 0.005=,10: GO TO 2500
  2520 RETURN 
  2600 LET g$=INKEY$: IF g$="X" THEN  RETURN 
  2610 IF g$<"0" OR g$>"9" THEN  GO TO 2600
  2620 PRINT g$;: LET n$=n$+g$: LET n=VAL g$: IF n=0 THEN  LET n=10
  2630 FOR c=1 TO n: BEEP 0.005=,5: FOR j=1 TO 2: NEXT j: NEXT c
  2640 GO SUB 2000: RETURN 
  2650 READ g$: IF g$="*" THEN  RETURN 
  2655 IF g$="" THEN  PRINT : GO TO 2650
  2657 GO SUB 50: GO TO 2650
  2710 DATA "6723427","4935429","7464460","2297629","3532104","9307269","3481408","7239293","8004310","9527001","01012129766868","3634017","2222196","8371099","01012129765858","01012129765757","999"
  2750 GO SUB 635: RESTORE 8000: INK 4: GO SUB 634
  2762 LET nu=5: GO SUB 7600
  2765 IF q$="X" THEN  GO SUB 632: RETURN 
  2766 IF q$="CL332" THEN  GO TO 2900
  2767 IF q$<>"SL312" THEN  PRINT '': LET g$="INVALID CODE": GO SUB 50: PRINT AT vpos,pos;: GO TO 2762
  2768 GO SUB 70: RESTORE 8006: GO SUB 2650: IF di>6 THEN  LET g$="M DYSON ------------- CODE 725": GO SUB 50
  2770 RESTORE 8007: GO SUB 2650
  2772 LET nu=3: GO SUB 7600
  2774 IF q$="X" THEN  GO SUB 632: RETURN 
  2776 IF q$="12" OR q$="6" OR q$="57" OR q$="154" THEN  PRINT AT vpos-1,0;: LET g$="FILE UNAVAILABLE": GO SUB 50: PRINT AT vpos,pos;: GO TO 2772
  2778 IF q$="421" THEN  GO SUB 70: RESTORE 8008: GO SUB 2650: GO TO 2800
  2780 IF q$="64" THEN  GO SUB 70: RESTORE 8010: GO SUB 2650: GO TO 2800
  2782 IF q$="725" THEN  GO SUB 70: RESTORE 8009: GO SUB 2650: GO TO 2800
  2784 PRINT AT vpos-1,0;: LET g$="INVALID CODE    ": GO SUB 50: GO TO 2772
  2800 LET nu=4: GO SUB 7600: IF q$<>"X" THEN  GO SUB 70: PRINT ': LET g$="PLEASE INSTRUCT?": GO SUB 50: PRINT : GO TO 2800
  2810 GO SUB 632: RETURN 
  2900 GO SUB 70: RESTORE 8011: GO SUB 2650
  2910 LET nu=1: GO SUB 7600
  2920 IF q$<>"X" THEN  GO TO 2910
  2930 GO SUB 632: RETURN 
  3000 GO SUB 635: INK 5: RESTORE 8021: GO SUB 634: PRINT AT 2,0;
  3002 LET nu=5: GO SUB 7600
  3004 IF q$="X" THEN  GO SUB 632: RETURN 
  3006 IF q$="VIN15" THEN  GO TO 3150
  3008 IF q$<>"INFRA" THEN  PRINT AT 2,0;"DATA NO GOOD ";: GO TO 3002
  3010 GO SUB 70
  3012 READ g$: IF g$="*" THEN  GO TO 3050
  3013 IF LEN g$<3 THEN  GO TO 3020
  3014 IF g$(1 TO 3)<>"Ric" THEN  GO TO 3020
  3016 IF di<2 THEN  LET g$=g$+"OFF LINE": GO TO 3020
  3018 LET g$=g$+"348-1408"
  3020 GO SUB 50: GO TO 3012
  3050 IF di<1 THEN  GO TO 3056
  3052 LET nu=1: GO SUB 7600: IF q$<>"X" THEN  GO TO 3052
  3054 GO SUB 632: RETURN 
  3056 LET di=1: LET U$="KNOW WHAT YOU'RE DOING WILL TRY TO HELP WHEN POSSIBLE - GEOFF - #END": LET M$=I$: PRINT AT 19,0;"[K]"
  3058 GO SUB 326: FOR J=1 TO 4: NEXT J: IF INKEY$<>"X" THEN  GO TO 3058
  3060 PRINT AT 19,0;"X": GO SUB 632: RETURN 
  3150 GO SUB 70
  3152 RESTORE 8028: GO SUB 2650
  3154 PAPER 0: LET nu=1: GO SUB 7600: IF q$<>"X" THEN  GO TO 3154
  3156 GO SUB 632: RETURN 
  3158        
  3160 INK 5: RESTORE 8021: GO SUB 634: PRINT ': RETURN 
  3250 GO SUB 635
  3252 LET pn=0: GO SUB 3492
  3254 PAPER 1: FOR c=1 TO 4: PRINT Z$;: NEXT c
  3256 INK 6: GO SUB 400: PRINT AT 3,4;: LET g$="System 15OOO User Network": GO SUB 50: GO SUB 401: PRINT AT 4,4;: GO SUB 50: GO SUB 402
  3257 PRINT Z$;Z$;
  3258 PAPER 2: INK 6: PRINT Z$;Z$;AT 8,4;: LET g$="1    New Software": GO SUB 50: PRINT Z$;Z$;AT 10,4;: LET g$="2    Message Board": GO SUB 50: PRINT Z$;Z$;AT 12,4;: LET g$="3    News": GO SUB 50: PRINT Z$;Z$;AT 14,4;: LET g$="4    Hardware": GO SUB 50: PRINT Z$;Z$;AT 16,4;: LET g$="X    Disconnect": GO SUB 50: PRINT Z$;Z$;
  3259 PAPER 1: INK 5: PRINT Z$;Z$;AT 20,2;: LET g$="Goto 1 for latest from AVS": GO SUB 50: PRINT Z$;
  3260 LET gn=4: GO SUB 3494
  3261 IF g$="1" THEN  GO TO 3300
  3262 IF g$="2" THEN  GO TO 3330
  3263 IF g$="3" THEN  GO TO 3400
  3264 IF g$="X" THEN  GO SUB 632: RETURN 
  3268 LET pn=4: GO SUB 3492
  3270 PAPER 7: INK 2: FOR c=1 TO 4: PRINT Z$;: NEXT c
  3272 GO SUB 400: PRINT AT 3,6;: LET g$="}{} AVS Services {}{": GO SUB 50: GO SUB 401: INK 4: PRINT AT 4,6;: GO SUB 50: GO SUB 402: PRINT Z$;Z$;
  3274 INK 7: PAPER 1: FOR c=1 TO 3: PRINT Z$;: NEXT c
  3276 PRINT AT 8,2;: LET g$="Latest hardware to come from": GO SUB 50
  3278 PRINT Z$;Z$;: PRINT AT 10,13;: LET g$="A V S": GO SUB 50: PRINT Z$;Z$;: PRINT AT 12,1;: LET g$="AV12 12ft Garden Satellite Dish": GO SUB 50
  3280 PRINT Z$;Z$;: PRINT AT 14,10;: LET g$="Price - TBA": GO SUB 50: PRINT Z$;Z$;: PRINT AT 16,4;: LET g$="From all major suppliers": GO SUB 50: PRINT Z$;Z$;
  3282 PAPER 7: INK 1: PRINT Z$;Z$;AT 20,1;: LET g$="1 for Menu - X to disconnect": GO SUB 50: PRINT Z$;
  3284 LET gn=1: GO SUB 3494: IF g$="X" THEN  GO SUB 632: RETURN 
  3286 GO TO 3252
  3300 LET pn=1: GO SUB 3492
  3302 PAPER 1: INK 5: FOR c=1 TO 4: PRINT Z$;: NEXT c
  3304 GO SUB 400: PRINT AT 3,6;: LET g$="#1  AVS Software  #1": GO SUB 50: GO SUB 401: PRINT AT 4,6;: GO SUB 50: GO SUB 402
  3306 PRINT Z$;Z$;
  3308 PAPER 5: INK 1: FOR c=1 TO 3: PRINT Z$;: NEXT c: PRINT AT 9,1;: LET g$="Flight Zero-One-Five (Vic 20)": GO SUB 50
  3310 FOR c=1 TO 3: PRINT Z$;: NEXT c: PRINT AT 12,1;: LET g$="Whirlwind One-Five (Vic 20)": GO SUB 50
  3312 FOR c=1 TO 3: PRINT Z$;: NEXT c: PRINT AT 15,1;: LET g$="15000 Series Games (BBC/CBM64)": GO SUB 50: PRINT Z$;Z$;Z$;
  3314 PAPER 1: INK 5: PRINT Z$;Z$;: PRINT AT 20,2;: LET g$="1 for Menu - X to disconnect": GO SUB 50: PRINT Z$;
  3316 LET gn=1: GO SUB 3494: IF g$="X" THEN  GO SUB 632: RETURN 
  3320 GO TO 3252
  3330 LET pn=2: GO SUB 3492
  3332 PAPER 1: PRINT Z$;: PAPER 0
  3334 PRINT Z$;: LET g$=" ▛▜▛▝▜▛▘▛▚▚▗▘  ▟▙": GO SUB 50
  3335 LET g$=" ▛  ▜  ▛▚  ▗▚   ": GO SUB 50
  3336  LET g$=" ▘  ▝▘ ▝▘ ▘▝▘▘ ▘  ": GO SUB 50: PAPER 1: PRINT Z$;: IF di=3 THEN  LET y$=" - BC=4M5 - HOPE THIS HELPS GGD#"
  3338 PAPER 2: PRINT AT 18,0;: FOR c=1 TO 3: PRINT Z$;: NEXT c
  3340 INK 6: PRINT AT 19,1;"1 for Menu - 2 to leave message": PRINT AT 20,5;"digit to X to disconnect": PRINT Z$;
  3342 INK 6: PAPER 1: IF y$="" THEN  PRINT AT 8,0;" No Messages ": PAPER 0: GO TO 3345
  3343 PRINT AT 8,0;" Message for you ": PAPER 0: PRINT 'y$
  3345 IF di<2 THEN  LET di=2
  3347 LET gn=2: GO SUB 3494: IF g$="X" THEN  GO SUB 632: RETURN 
  3348 PAPER 0: FOR c=8 TO 12: PRINT AT c,0;Z$;: NEXT c: IF g$="1" THEN  GO TO 3252
  3349 IF sn>0 THEN  GO TO 3360
  3350 PRINT AT 11,0;: LET g$="Enter message (Max 30 letters)  ": GO SUB 50: LET sn=1: LET nu=30: INK 6: PRINT AT 13,0;: GO SUB 7600
  3352 IF q$="" THEN  GO TO 3350
  3354 FOR j=1 TO 50: NEXT j: PRINT AT 11,0;: LET g$="MESSAGE INPUT OK - THANK YOU    ": GO SUB 50: INK 4: LET g$=q$: PRINT AT 13,0;: GO SUB 50
  3355 IF q$="SELCRA VINCHETTA" OR q$="SELCRAVINCHETTA" THEN  LET sn=2
  3356 IF q$="SELCRA BIG APPLE" OR q$="SELCRABIG APPLE" THEN  LET sn=4: LET s1=1
  3357 IF di<5 AND q$="HELP" THEN  LET y$="- CAN'T HELP AT PRESENT #A.H. -"
  3358 GO TO 3347
  3360 PRINT AT 11,0;: LET g$="Message in system - <3> to erase": GO SUB 50: LET gn=3: GO SUB 3494: IF g$="3" THEN  LET sn=0: FOR j=1 TO 25: NEXT j: PRINT AT 11,0;: LET g$="******** MESSAGE ERASED ********": GO SUB 50: PRINT AT 13,0;: LET g$=Z$: GO SUB 50
  3362 GO TO 3347
  3400 LET pn=3: GO SUB 3492
  3402 PAPER 2: INK 6: FOR c=1 TO 4: PRINT Z$;: NEXT c
  3404 GO SUB 400: PRINT AT 3,8;: LET g$="15OOO AND BEYOND": GO SUB 50: GO SUB 401: PRINT AT 4,8;: GO SUB 50: GO SUB 402
  3406 PRINT Z$;Z$;
  3408 PAPER 1: PRINT Z$;Z$;AT 8,1;: LET g$="AVS - PRODUCERS  OF THE  15000": GO SUB 50: PRINT Z$;Z$;AT 10,1;
  3410 LET g$="SERIES WILL  BE RELEASING EVEN": GO SUB 50: PRINT Z$;Z$;AT 12,1;
  3412 LET g$="MORE  EXCITING  AND   ORIGINAL": GO SUB 50: PRINT Z$;Z$;AT 14,1;
  3414 LET g$="SOFTWARE  IN  THE NEAR  FUTURE": GO SUB 50: PRINT Z$;Z$;Z$;AT 17,5;
  3416 FLASH 1: PAPER 0: LET g$="WATCH PRESS FOR DETAILS": GO SUB 50: FLASH 0: PAPER 1: PRINT Z$;
  3418 PAPER 2: PRINT Z$;Z$;: PRINT AT 20,2;: LET g$="1 for Menu - X to disconnect": GO SUB 50: PRINT Z$;
  3420 LET gn=1: GO SUB 3494: IF g$="X" THEN  GO SUB 632: RETURN 
  3422 GO TO 3252
  3492 PAPER 0: CLS : LET g$="System User Net"+"     #675"+STR$ pn+"     **": GO SUB 50: RETURN 
  3494 GO SUB 2000
  3495 LET g$=INKEY$: IF (g$<"0" OR g$>STR$ gn) AND g$<>"X" THEN  GO TO 3495
  3496 RETURN 
  3500 GO SUB 635: RESTORE 8044: GO SUB 634
  3502 PAPER 0: INK 6: PRINT "CODE ";: INK 2
  3503 LET nu=6: GO SUB 7600
  3504 IF Q$="X" THEN  GO SUB 632: RETURN 
  3506 IF Q$<>"MMB FR" THEN  GO TO 3503
  3508 GO SUB 70: GO SUB 2650
  3510 INK 4: PAPER 0: LET nu=8: GO SUB 7600
  3512 IF q$="X" THEN  GO SUB 632: RETURN 
  3514 IF q$<>"AERCO4M5" THEN  GO TO 3510
  3515 IF di=3 THEN  LET y$=""
  3516 GO SUB 70: INK 2: PAPER 6: FLASH 1: PRINT AT 10,0;Z$;Z$;: GO SUB 400: PRINT AT 10,8;"=<RESTRICTED>=": GO SUB 401: PRINT AT 11,8;"=<RESTRICTED>=": GO SUB 402: FLASH 0
  3518 FOR j=1 TO 500: NEXT j
  3520 GO SUB 70: GO SUB 2650
  3522 INK 3: PRINT "< >";CHR$ 8;CHR$ 8;
  3523 LET nu=1: GO SUB 7600
  3524 IF q$<>"X" THEN  GO TO 3523
  3526 GO SUB 632: RETURN 
  3750 LET Z=1: GO SUB 635: RESTORE 8068: GO SUB 634
  3752 GO SUB 70: RESTORE 8069: GO SUB 2650
  3754 LET nu=1: GO SUB 7600
  3756 IF q$="X" THEN  GO SUB 632: RETURN 
  3758 IF q$="2" THEN  GO TO 3800
  3760 IF q$<>"1" THEN  GO TO 3754
  3762 GO SUB 70: RESTORE 8070: GO SUB 2650
  3764 LET nu=1: GO SUB 7600
  3766 IF q$="X" THEN  GO SUB 632: RETURN 
  3768 GO TO 3752
  3800 GO SUB 70: IF Z=0 THEN  LET g$="             UPDATE             ": GO SUB 50
  3802 LET Z=0: RESTORE 8078: GO SUB 2650
  3804 LET g$=STR$ (SQ): GO SUB 3900
  3806 LET g$=STR$ (SR*10): GO SUB 3900
  3807 LET g$=STR$ (SQ+15): GO SUB 3900
  3808 PRINT : LET g$="DEPARTURES": GO SUB 50
  3809 PRINT : LET g$=STR$ (SQ+1): GO SUB 3900
  3810 LET g$=STR$ (SR*10+1)
  3811 IF di>5 THEN  LET g$="5712"
  3812 GO SUB 3900
  3813 LET g$=STR$ (SQ+16): GO SUB 3900
  3815 PRINT : LET g$="= UPDATED ON <R>ECALL =": GO SUB 50: PRINT 
  3817 LET nu=1: GO SUB 7600
  3818 IF q$="X" THEN  GO SUB 632: RETURN 
  3820 IF q$="R" THEN  GO TO 3800
  3822 GO TO 3752
  3900 IF LEN g$<4 THEN  LET g$=" "+g$: GO TO 3900
  3902 GO SUB 50: RETURN 
  4000 GO SUB 635: RESTORE 8088: GO SUB 634: GO SUB 2650
  4002 IF di<3 THEN  LET df=df+1: IF df=2 THEN  LET di=3
  4004 INK 3: PRINT AT 4,0;">          <": PRINT AT 4,1;
  4006 LET nu=10: GO SUB 7600
  4008 IF q$="X" THEN  GO SUB 4030: GO SUB 632: RETURN 
  4010 IF q$<>"CCYRP455" THEN  GO TO 4006
  4012 GO SUB 70: GO SUB 2650
  4014 PRINT AT 13,0;: LET nu=1: GO SUB 7600
  4016 IF q$<>"X" THEN  GO TO 4014
  4018 GO SUB 2650
  4020 PRINT AT 13,0;: LET nu=1: GO SUB 7600
  4022 IF q$<>"X" THEN  GO TO 4020
  4024 GO TO 4008
  4030 IF di>2 THEN  RETURN 
  4032 LET b=1: LET U$="PHONE CO DATA UNIT INVESTIGATIONSHUTDOWN IN 10 SECONDS": LET M$=" // SYSTEM SHUTDOWN IMMINENT // ENABLE IMMEDIATELY": LET M$=M$+M$: LET U=2: RETURN 
  4250 GO SUB 635: RESTORE 8100: GO SUB 634
  4252 IF INT (RND*3+1)=1 THEN  LET b=1: LET U$="LINE SECTOR CONDITION CHECK     PLEASE WAIT": LET M$=" ||| SYSTEM FAULT ||| PLEASE ENABLE": LET M$=M$+M$: LET u=1
  4254 GO SUB 2650
  4255 PRINT AT 6,0;"      "
  4256 PRINT AT 6,1;: LET nu=4: GO SUB 7600
  4258 IF q$="X" THEN  GO SUB 632: RETURN 
  4260 IF q$<>"7Y4Y" THEN  PRINT AT 8,0;" INCORRECT CD# ": GO TO 4256
  4262 PRINT AT 8,0;: GO SUB 2650
  4264 LET nu=1: GO SUB 7600
  4266 IF q$<>"X" THEN  GO TO 4264
  4268 GO SUB 632: RETURN 
  4500 INK 7: GO SUB 635: RESTORE 8112: GO SUB 634
  4502 IF di<4 THEN  LET di=4: LET M$=I$: LET U$="TRY SELCRA SECS ON 800-4310     CODE IS REVERSAL GEOFF #END"
  4504 GO SUB 2650
  4506 LET nu=5: GO SUB 7600
  4508 IF q$="X" THEN  GO SUB 632: RETURN 
  4510 IF q$<>"6729" THEN  GO TO 4506
  4512 LET di=8: LET y$="RMB CODE SOUTHERN AIR SECOND    FLIGHT OUT RELATES BACKWARDS GGD"
  4514 GO SUB 70: GO SUB 2650
  4516 LET nu=1: GO SUB 7600
  4518 IF q$<>"X" THEN  GO TO 4516
  4520 GO SUB 632: RETURN 
  4750 GO SUB 635: RESTORE 8122: GO SUB 634
  4752 IF di<5 THEN  LET U$="MUST BE CRYPTIC IN FUTURE AM    ATTRACTING ATTENTION - GEOFF END": LET di=5: LET M$=I$
  4754 LET nu=6: GO SUB 7600
  4756 IF q$="X" THEN  GO SUB 632: RETURN 
  4758 IF q$<>"ARCLES" THEN  GO TO 4754
  4760 GO SUB 2650
  4762 PAPER 7: BRIGHT 0: FOR d=0 TO 1: PRINT AT 10,0;: LET g$="  ACCESSED SPECIAL INFORMATION  ": GO SUB 50: LET g$="   RETRIEVAL SYSTEM FEATURING   ": GO SUB 50
  4764 LET g$="  AUTO/ID. KEY FIRST LETTER OF  ": GO SUB 50: LET g$="           ENQUIRY CODE         ": GO SUB 50
  4766 BRIGHT 1: NEXT d
  4768 PRINT AT 15,0;"   ";CHR$ 8;CHR$ 8;
  4770 LET nu=1: GO SUB 7600
  4772 IF q$="X" THEN  GO SUB 632: RETURN 
  4773 IF q$<"A" OR q$>"Z" THEN  GO TO 4770
  4774 IF (q$="V" AND sn=2) OR (q$="B" AND sn>3) OR sn<2 THEN  GO TO 4776
  4775 GO TO 4770
  4776 PAPER 4: INK 7: FOR d=0 TO 2: PRINT AT 15+d,0;"   ": NEXT d: LET g$=q$: FOR d=0 TO 2: FOR k=65 TO CODE g$: PAUSE 2: PRINT AT 15+d,1;CHR$ k;: NEXT k: NEXT d
  4778 LET gb=0: INK 4: PAPER 0: PRINT AT 16,0;: LET g$="#-ID OK-CHECKING FILES-": GO SUB 50
  4780 INK 5: FOR g=50 TO 12250 STEP 50: PRINT AT 16,23;g: NEXT g
  4782 INK 4: GO SUB 70
  4783 RESTORE 8146
  4784 IF sn=2 THEN  RESTORE 8132
  4786 IF sn>3 THEN  RESTORE 8150
  4788 GO SUB 2650
  4790 LET nu=1: GO SUB 7600
  4792 IF q$<>"X" THEN  GO TO 4790
  4794 GO SUB 632: RETURN 
  5000 GO SUB 635
  5002 IF df>2 THEN  GO TO 5100
  5003 LET df=3: LET b=1: LET u=10: LET U$="  POLICE MESSAGE - LINE ACCESS    CHECK - 10 MINUTE SHUTDOWN": LET M$=" * POLICE * ENABLE IMMEDIATELY": LET M$=M$+M$
  5005 GO SUB 70: INK 2: PAPER 6
  5007 FOR k=1 TO 10
  5008 GO SUB 400: LET g$="   <<<<<RESTRICTED ENTRY>>>>>   ": GO SUB 50
  5009 GO SUB 401: GO SUB 50
  5010 IF INKEY$="X" THEN  LET di=5: LET k=20: NEXT k: GO SUB 402: GO SUB 632: RETURN 
  5012 BEEP 0.5 COPY ,20: BEEP 0.5 COPY ,30
  5014 NEXT k
  5016 GO SUB 402: GO TO 5005
  5100 INK 7: FOR k=1 TO 39: PRINT "RESTRICTED ENTRY ";
  5102 IF INKEY$="X" THEN  LET k=48: NEXT k: GO SUB 632: RETURN 
  5104 BEEP 0.2 TO ,40: NEXT k: PRINT 
  5106 LET nu=4: GO SUB 7600
  5108 IF q$="X" THEN  GO SUB 632: RETURN 
  5110 IF q$<>"EZRA" THEN  GO TO 5106
  5112 GO SUB 635: RESTORE 8156: GO SUB 634
  5114 GO SUB 2650
  5116 LET nu=1: GO SUB 7600
  5118 IF q$<>"X" THEN  GO TO 5116
  5120 GO SUB 632: RETURN 
  5250 GO SUB 635: RESTORE 8184: GO SUB 634
  5252 INK 5: PAPER 0: PRINT AT 2,0;"<       >": PRINT AT 2,1;
  5254 LET nu=7: GO SUB 7600
  5256 IF q$="X" THEN  GO SUB 632: RETURN 
  5258 IF q$<>"EBV1657" THEN  GO TO 5254
  5260 GO SUB 2650
  5262 LET nu=1: GO SUB 7600
  5264 IF q$<>"X" THEN  GO TO 5262
  5266 GO SUB 632: RETURN 
  5500 GO SUB 635: RESTORE 8192: GO SUB 634
  5502 INK 6: LET nu=6: GO SUB 7600
  5504 IF q$="X" THEN  GO SUB 632: RETURN 
  5506 IF q$<>"673281" THEN  GO TO 5502
  5508 GO SUB 70: IF di<7 THEN  LET di=7
  5509 INK 7
  5510 PRINT AT 2,0;
  5512 FOR k=1 TO 608
  5514 IF INKEY$="X" THEN  LET k=608: NEXT k: GO TO 5530
  5516 LET g$=" ": IF INT (RND*3)=1 THEN  LET g$="[J]"
  5518 PRINT "[G]";CHR$ 8;g$;
  5520 NEXT k
  5525 PRINT AT 21,4;"C/S ERROR - BAD BAUD RATE";
  5527 GO TO 5510
  5530 IF di<8 THEN  LET y$="GETTING SO CONFUSED THINK WE    SHOULD GO BACK TO SCHOOL! - GGD#"
  5532 GO SUB 632: RETURN 
  5750 GO SUB 635: RESTORE 8196: GO SUB 634
  5753 IF di<6 THEN  LET di=6
  5755 PRINT AT 4,0;" enter code       ";AT 4,12;
  5757 LET nu=5: GO SUB 7600
  5759 IF q$="X" THEN  GO SUB 632: RETURN 
  5761 IF q$<>"ST421" THEN  GO TO 5757
  5762 IF sn=4 THEN  LET sn=5
  5763 PRINT AT 6,0;: IF s1=1 THEN  LET M$=I$: LET U$="CILISY CODE NUMERIC - FGCBHA    - GEOFF #END": LET ss=2
  5765 GO SUB 2650
  5767 LET nu=1: GO SUB 7600
  5769 IF q$<>"X" THEN  GO TO 5767
  5771 GO SUB 632: RETURN 
  6000 GO SUB 635: RESTORE 8212: GO SUB 634: INK 6
  6003 LET nu=9: GO SUB 7600
  6005 IF q$="X" THEN  GO SUB 632: RETURN 
  6007 IF q$<>"CRC3" THEN  GO TO 6003
  6009 GO SUB 2650: INK 6
  6011 LET nu=1: GO SUB 7600
  6013 IF q$<>"X" THEN  GO TO 6011
  6015 GO SUB 632: RETURN 
  6250 GO SUB 635: RESTORE 8234: GO SUB 634
  6252 PAPER 0: PRINT "Please enter ID# ";: INK 3
  6254 LET nu=6: GO SUB 7600
  6256 IF q$="X" THEN  GO SUB 632: RETURN 
  6258 IF q$<>"PIP537" THEN  GO TO 6254
  6259 GO SUB 70
  6260 GO SUB 2650: PAPER 0: GO SUB 2650
  6262 INK 3: PRINT "> <";CHR$ 8;CHR$ 8;
  6264 LET nu=1: GO SUB 7600
  6266 IF q$<>"X" THEN  GO TO 6264
  6268 GO SUB 632: RETURN 
  6500 RESTORE 9000: GO SUB 635: FOR j=1 TO 50: NEXT j: PAPER 1: LET a$="             ": LET p$="             ": LET c$=" * * * * * * ": LET d$="  * * * * *  ": FOR k=0 TO 8: READ e$,f$: PRINT AT k,0;VAL$ e$;AT k,0;: LET g$=VAL$ f$: GO SUB 50: NEXT k
  6501 PAPER 2: PRINT Z$;: PAPER 7: PRINT Z$;Z$;: PAPER 2: PRINT Z$;Z$;: PAPER 7: PRINT Z$;Z$;: PAPER 2: PRINT Z$;Z$;
  6502 INK 1: PAPER 7: PRINT AT 10,13;: GO SUB 400: LET g$="R E S E R V E": GO SUB 50: PRINT AT 11,13;: GO SUB 401: GO SUB 50
  6504 INK 7: PAPER 2: PRINT AT 12,13;: GO SUB 400: LET g$="M A N H A T T A N": GO SUB 50: PRINT AT 13,13;: GO SUB 401: GO SUB 50
  6506 INK 1: PAPER 7: PRINT AT 14,13;: GO SUB 400: LET g$="B A N K": GO SUB 50: PRINT AT 15,13;: GO SUB 401: GO SUB 50: GO SUB 402
  6508 PAPER 1: INK 7: PRINT AT 19,0;"       press $ to continue      "
  6509 IF INKEY$<>"$" AND INKEY$<>"4" THEN  GO TO 6509
  6510 RESTORE 8294: PAPER 0: GO SUB 634
  6512 PRINT AT 2,0;: INK 5: PAPER 1: PRINT " Please enter access code       ";AT 2,26;
  6514 INK 6: LET x$="$": LET nu=5: GO SUB 7600: LET x$="[K]"
  6516 IF q$="X" THEN  GO SUB 632: RETURN 
  6518 IF q$="RM7" THEN  PRINT AT 4,0;: LET g$=" SORRY OLD PASS CODE ": GO SUB 50: LET g$="   HAVE A NICE DAY   ": GO SUB 50: FOR j=1 TO 50: NEXT j: GO SUB 632: RETURN 
  6520 IF q$<>"M8R" THEN  PRINT AT 4,0;: LET g$=" Sorry - incorrect code         ": GO SUB 50: GO TO 6512
  6522 GO SUB 70: RESTORE 8296: GO SUB 2650
  6524 PRINT AT 13,0;"                                ": PRINT AT 13,1;
  6526 INK 6: PAPER 2: LET nu=6: GO SUB 7600
  6528 IF q$="X" THEN  GO SUB 632: RETURN 
  6530 IF q$<>"TFTB24" THEN  GO TO 6526
  6532 GO SUB 6710: LET g$=" Transfer from account <NAME> ": GO SUB 6720
  6533 IF q$="X" THEN  GO SUB 632: RETURN 
  6534 IF q$<>"VINCHETTA" THEN  PRINT AT 12,0;" ACCOUNT NOT KNOWN ": GO SUB 6721: GO TO 6534
  6536 GO SUB 6710: LET g$=" Transfer to account <NAME> ": GO SUB 6720
  6537 IF q$="X" THEN  GO SUB 632: RETURN 
  6538 IF q$<>"COMDATA" THEN  PRINT AT 12,0;" ACCOUNT NOT KNOWN ": GO SUB 6721: GO TO 6538
  6540 GO SUB 6710: LET g$=" Transfer to Bank <NAME> ": GO SUB 6720
  6541 IF q$="X" THEN  GO SUB 632: RETURN 
  6542 IF q$<>"MIDMINSTER" THEN  PRINT AT 12,0;" BANK NAME NOT KNOWN ": GO SUB 6721: GO TO 6542
  6544 GO SUB 6710: LET g$=" ENTER AMOUNT OF TRANSFER ": PAPER 1: PRINT AT 8,0;: GO SUB 50
  6546 INK 6: PAPER 2: PRINT AT 10,0;"                 ";AT 10,1;"US$";: LET nu=12: GO SUB 7600
  6547 IF q$="X" THEN  GO SUB 632: RETURN 
  6548 LET sum=VAL q$: IF sum>1500000 THEN  PRINT AT 12,0;" INSUFFICIENT FUNDS ": GO TO 6546
  6550 GO SUB 6710: LET g$=" ENTER TRANSFER CODE ": PAPER 1: PRINT AT 8,0;: GO SUB 50
  6552 INK 6: PAPER 2: PRINT AT 10,0;"            ";AT 10,1;: LET nu=10: GO SUB 7600
  6554 IF q$="X" THEN  GO SUB 632: RETURN 
  6556 IF q$<>"2175" OR nb<>0 THEN  GO TO 6552
  6558 IF sum<>1500000 THEN  PRINT AT 12,0;: LET g$=" INVALID TRANSFER - PLEASE REDO ": GO SUB 50: FOR j=1 TO 300: NEXT j: GO TO 6510
  6560 LET nb=1: GO SUB 70: RESTORE 8306: GO SUB 2650
  6570 LET M$=I$: LET U$="$1,500,000 RECEIVED - MIDMINSTERBANK - WELL DONE AND THANK YOU": PAPER 0
  6572 GO SUB 326: PAUSE 10: IF INKEY$<>"X" THEN  GO TO 6572
  6574 PRINT AT 14,1;"X": GO SUB 632: RETURN 
  6700 STOP 
  6710 GO SUB 70: RESTORE 8302: READ g$: GO SUB 50: RETURN 
  6720 PAPER 1: PRINT AT 8,0;: GO SUB 50
  6721 INK 6: PAPER 2: PRINT AT 10,0;Z$;AT 10,1;
  6722 LET nu=30: GO SUB 7600: RETURN 
  6749 STOP 
  7600 GO SUB 482: LET q$="": PRINT L$(1 TO nu)
  7605 PRINT AT vpos,pos;
  7607 FOR d=1 TO nu
  7609 PRINT  FLASH 1;x$; FLASH 0;CHR$ 8;
  7612 IF INKEY$="" THEN  GO TO 7612
  7615 LET c$=INKEY$
  7617 IF c$="X" THEN  LET q$="X": GO TO 7680
  7620 IF c$=CHR$ 13 THEN  GO TO 7660
  7622 IF c$=CHR$ 12 AND d>1 THEN  LET d=d-1: LET q$=q$(1 TO d-1): PRINT "[K]";CHR$ 8;CHR$ 8;: GO SUB 2000: GO TO 7609
  7624 IF c$=CHR$ 12 THEN  GO TO 7612
  7626 IF (c$<"0" OR c$>"9") AND (c$<"A" OR c$>"Z") AND c$<>" " THEN  GO TO 7612
  7628 PRINT c$;: GO SUB 2000: LET q$=q$+c$: NEXT d
  7630 PRINT AT vpos,pos;: RETURN 
  7660 GO SUB 7700: LET d=nu: NEXT d: PRINT AT vpos,pos;: RETURN 
  7680 PRINT AT vpos,pos;"X";Z$(1 TO nu-1);: LET d=nu: NEXT d: RETURN 
  7700 PRINT Z$(1 TO nu-LEN q$);: RETURN 
  8005 DATA "-KINGSDOWN POLYTECHNIC-A/3/S/4",""
  8006 DATA "##SPECIAL LISTS","","","*"
  8007 DATA "R A BETTERIDGE LTD -- CODE  12","A COLLETT LTD ------- CODE   6","R BOON LTD ---------- CODE  64","R L MUNDAY ---------- CODE  57","L T PERRY ----------- CODE 421","F G POULTER --------- CODE 154","END","","","INPUT CODE","*"
  8008 DATA "SPECIAL FILE","","","","LEVEL 1","L T PERRY","DATA SYSTEM 493 5429","CODE <INFRA>","","*"
  8009 DATA "SPECIAL FILE","","","","LEVEL 2","MILLS DYSON","DATA SYSTEM CODE: 6729","","*"
  8010 DATA "SPECIAL FILE","","","","LEVEL 1","R BOON LTD","DATA SYSTEM CODE: 7Y4Y","","*"
  8011 DATA "#CL332#","","M AVSDON LTD ------ 1743"
  8012 DATA "R P CRISPIN ------- XX47"
  8013 DATA "ELWOOD-BROTHER ---- EBV1657"
  8014 DATA "D GILES & CO ------ MO12"
  8015 DATA "HARRISON-AUSTIN --- AM73"
  8016 DATA "MIDMINSTER BANK --- 4M5"
  8017 DATA "PATTERSON INST ---- 1170"
  8018 DATA "RES MAN BANK INC -- RM7"
  8019 DATA "ZADOL LTD --------- ZYX3","","*"
  8021 DATA "+++++ L T Perry & Co Ltd +++++","","","*"
  8022 DATA "","Midminster Bank PLC .. 229-7629","","A R Routledge & Co ... 930-7269",""
  8023 DATA "Seastar Travel Ltd ... 353-2104",""
  8024 DATA "Richardson Boon Ltd .. ",""
  8025 DATA "System 15000 User"
  8026 DATA "Network Message Board  746-4460","",""
  8027 DATA "<< END LOCAL DATA GROUP FILE >>","","*"
  8028 DATA "","[A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A]"
  8029 DATA "Name            Code"
  8030 DATA "[A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A]"
  8031 DATA "Vinchetta UK    EZRA"
  8032 DATA "(Tel: 952-7001)"
  8033 DATA "Elwood-Brother  N/A"
  8034 DATA "(Tel: 010-1(212)976-6868)"
  8035 DATA "Cilisy Company  N/A"
  8036 DATA "(Tel: 363-4017)"
  8037 DATA "Res Man Bank    N/A"
  8038 DATA "(Tel: 010-1(212)976-5757)"
  8039 DATA "Craig Comms     CRC3","(Tel: XXX-XXXX)","[A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A]",""
  8040 DATA "  Origin KP Codes List <CL332> ","","*"
  8044 DATA " ```` Midminster Bank PLC ````  ","","","*"
  8046 DATA "","","`$ MMB FOREIGN EXCHANGE RATES $`","","",""
  8048 DATA "US Dollar . . . . . 1.420"
  8050 DATA "French Franc  . . . 0.456"
  8052 DATA "Swiss Franc . . . . 1.230"
  8054 DATA "Deutschmark . . . . 12.00"
  8056 DATA "Spanish Peseta  . .  0.38"
  8058 DATA "Italian Lira  . . . 0.004","","",""," Enter CODE for account access  ","","*"
  8060 DATA " ---- Midminster Bank PLC ----","",""
  8062 DATA "REALCO LTD ** REALCO INC","","RES MANHATTAN BANK","","","BALCE. - PERIOD 7/223-","[A][A][A][A][A][A]"
  8064 DATA "       `37,466.00"
  8066 DATA "    US$122,475.00","","","SOLICITORS ROUTLEDGE CCYRP455","","","","*"
  8068 DATA ">< >< >< SEASTAR TRAVEL >< >< ><","*"
  8069 DATA "","","KEY 1 - FOREIGN EXCHANGE RATES","    2 - FLIGHT INFORMATION","","","*"
  8070 DATA " ------------------------------ "
  8072 DATA " --- FOREIGN EXCHANGE RATES --- "
  8074 DATA " ------------------------------ ","",""
  8076 DATA "US DOLLAR ------ 1.450","FRENCH FRANC --- 11.44","SWISS FRANC ---- 3.050","DEUTSCHMARK ---- 3.720","SPANISH PESETA - 209.5","ITALIAN LIRA --- 2318","","","COURTESY MIDMINSTER BANK-MMB FR ","","","*"
  8078 DATA " ------------------------------ "
  8080 DATA " ----- FLIGHT INFORMATION ----- "
  8082 DATA " ------------------------------ ",""
  8084 DATA "ARRIVALS-SOUTHERN AIR X FLIGHTS","","*"
  8088 DATA " A R Routledge & Co - Solicitors","*"
  8090 DATA "","Please enter client INPUT CODE","","","*"
  8092 DATA "Realco Ltd - Realco Inc","Fully owned subsiduaries of","Vinchetta Inc",""
  8094 DATA "Bankers","       Midminster Bank PLC","       Reserve Manhattan Bank NY","","","- Courtesy DATA INFORMATION -","*"
  8096 DATA "","","Accountants","Mills Dyson & Co","London Office DATALINE 723-9293","*"
  8100 DATA "Richardson Boon (Securities) Ltd","*"
  8102 DATA "","",""," CD#  ","*"
  8104 DATA " MMB AC/ACCESS=FIRST 3 LETTERS  "
  8106 DATA "",""," REVERSED + LAST 2 + BANK CODE  "
  8108 DATA "",""," REALCO #######                 ","","","*"
  8112 DATA "MillsDyson MillsDyson MillsDyson"
  8114 DATA "MillsDyson MillsDyson MillsDyson","*"
  8116 DATA "","","INPUT ENTRY CODE","","","*"
  8118 DATA "","","MAIN CODE LISTS","","Kingsdown Polytechnic 672-3427","","L T Perry             493-5429","","Vinchetta             952-7001","","*"
  8122 DATA "SELCRA INTERNATIONAL SECURITIES","","*"
  8124 DATA "SELCRA-FINANCE-DATA-INFORMATION"
  8126 DATA "[H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H]"
  8128 DATA "- SELCRA SECURITIES - SERVICES -"
  8130 DATA "[I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I]","*"
  8132 DATA " FILE #12507(V)  - VINCHETTA -",""
  8134  DATA "BANKERS-","MIDMINSTER        - CODE N/A","RESERVE MANHATTAN - CODE N/A"
  8136 DATA "","SOLICITORS-","A R ROUTLEDGE - CODE CCYRP455"
  8138 DATA "","ATTORNIES-","ELWOOD-BROTHER    - CODE N/A"
  8140 DATA "","OTHERS-","L T PERRY - REGULAR  CODE INFRA","            SPECIFIC CODE VIN15"
  8142 DATA "CRAIG COMMUNICATIONS CODE CRC3"
  8144 DATA "","  THANK YOU FOR CALLING SELCRA  ","","*"
  8146 DATA "THIS SYSTEM OPEN ONLY TO 15OOO  ","USERS. NAME ON 15000 MESSAGE BRD","NOT ON FILE. 15OOO USERS PLEASE ","     INPUT AS SELCRA & NAME     "
  8148 DATA "","  THANK YOU FOR CALLING SELCRA  ","","*"
  8150 DATA "  FILE #12743 (B) BIG APPLE INC","",""
  8152 DATA "BA INVESTMENT - BASED NEW YORK","","PRESTIGIOUS INVESTMENT COMPANY","","     MUTUAL FUND MANAGERS","","TEL: 010-1(212)976-5858","CLIENT CODE - PIP537","","  THANK YOU FOR CALLING SELCRA  ","","*"
  8156 DATA "           VINCHETTA            ","","*"
  8158 DATA " CODES ",""
  8160 DATA "PERRY INVESTIGATORS      INFRA"
  8162 DATA "ROUTLEDGE & CO        CCYRP455"
  8164 DATA "MILLS DYSON               XXXX"
  8166 DATA "R M BANK                   M8R"
  8168 DATA "A R HACKER                4A67"
  8170 DATA "R BOON                    7Y4Y"
  8172 DATA "D GILES & CO              MO12"
  8174 DATA "H AUSTIN                  AM73"
  8176 DATA "G FELTERN INC         FR54F5F3"
  8178 DATA "A P BEDWELL               BBC2"
  8180 DATA "J L WAGSTAFF             15000","","*"
  8184 DATA "         ELWOOD-BROTHER         ","*"
  8186 DATA "",""," ACCESSED  ELWOOD-BROTHER DATA",""
  8188 DATA "1 BIG APPLE","2 CILISY DATA","3 CRAIG COMMUNICATIONS","4 SATATEL","","","1 (212) 976-5858 (NY)","2  +441 363-4017 (UK)","3  +441 837-1099 (UK)","4  +441 222-2196 (UK)","","","*"
  8192 DATA "CILISY DATA COMPANY","","*"
  8196 DATA "  satellite data communications "
  8198 DATA "","  |||||||||| satatel |||||||||| ","","*"
  8200 DATA "satatel data","[I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I]",""
  8202 DATA "res man bank  010-1(212)976-5757",""
  8204 DATA "perry (p.i.) <INFRA>    493-5429"
  8206 DATA "","big apple     010-1(212)976-5858"
  8208 DATA "","routledge    <CCYRP455> 930-7269","","","*"
  8212 DATA "C R A I G","","","*"
  8214 DATA "[H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H]"
  8216 DATA "  INTERNATIONAL COMMUNICATIONS  "
  8218 DATA "[I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I][I]","",""
  8220 DATA "INT RADIO .......... IR7R34"
  8222 DATA "LRDP BROADCAST ..... 961#33"
  8224 DATA "AVISYSTEM R ........ AVS1A1"
  8226 DATA "SATATEL ............ ST421"
  8228 DATA "A HACKER ........... A543H","",""
  8230 DATA "[A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A]","","*"
  8234 DATA "  - WELCOME TO BIG APPLE INC -  ","","*"
  8236 DATA " $ BIG APPLE INVESTMENT FUND $  ","","*"
  8238 DATA "The new BA Investment Fund gives"
  8240 DATA "a broad based portfolio with top"
  8242 DATA "performance securities affording"
  8244 DATA "an investor a unique opportunity"
  8246 DATA "to  capitalize  on  the BA  fund"
  8248 DATA "expertise.  Fund  Units  may  be"
  8250 DATA "purchased instantly by crediting"
  8252 DATA "our  fund A/C  through RMB xfers"
  8254 DATA "(TFTB24) -  don't delay -  start"
  8256 DATA "your BA investment now!","","","*"
  8294 DATA "     Reserve Manhattan Bank     ","","*"
  8296 DATA "  DEPOSITS  DEPOSITS  DEPOSITS  ",""
  8298 DATA "  WITHDRAW  WITHDRAW  WITHDRAW  "
  8300 DATA "","  BALANCES  BALANCES  BALANCES  ",""
  8302 DATA "  TRANSFER  TRANSFER  TRANSFER  ","",""
  8304 DATA " Enter code for service required","","","*"
  8306 DATA ""," == TRANSFER CONFIRMATION == ",""
  8308 DATA " AMOUNT OF TRANSFER  $1,500,000",""
  8310 DATA " FROM (ACCOUNT)      VINCHETTA",""
  8312 DATA " TO (BANK)           MIDMINSTER",""
  8314 DATA " TO (ACCOUNT)        COMDATA","",""," [K] ","*"
  9000 DATA "a$","c$","a$","d$","p$","c$","p$","d$","a$","c$","a$","d$","p$","c$","p$","d$","a$","c$"
  9100 BRIGHT 1: INK 6: PAPER 0: BORDER 0
  9120 CLS : RESTORE 9300
  9130 FOR c=0 TO 7: READ c$: POKE USR "L"+c,VAL ("BIN "+c$): NEXT c
  9140 FOR c=0 TO 7: READ c$: POKE USR "M"+c,VAL ("BIN "+c$): NEXT c
  9145 FOR c=0 TO 7: READ c$: POKE USR "N"+c,VAL ("BIN "+c$): NEXT c
  9150 FOR x=0 TO 7
  9160 PRINT AT 3,x;"   [L][M] [M][L][L][L]"
  9170 NEXT x
  9180 FOR x=13 TO 8 STEP -1
  9190 PRINT AT 4,x;" [L][M] [M][L]  [M] [M] "
  9200 NEXT x
  9210 FOR x=0 TO 7
  9220 PRINT AT 5,x;" [L][M] [M][L]   [L][L]"
  9222 NEXT x
  9223 INK 2: PRINT AT 2,7;"[B][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][D]"
  9224 PRINT AT 3,7;"[C]";AT 3,25;"[C]"
  9225 PRINT AT 4,7;"[C]";AT 4,25;"[C]"
  9226 PRINT AT 5,7;"[C]";AT 5,25;"[C]"
  9227 PRINT AT 6,7;"[E][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][A][F]"
  9232 PAUSE 40: INK 6: BRIGHT 0: LET g$="presents": GO SUB 400: PRINT AT 9,12;g$: GO SUB 401: PRINT AT 10,12;g$: GO SUB 402
  9236 BRIGHT 1: PAUSE 30: INK 6: LET g$="SYSTEM 15OOO"
  9237 FOR d=1 TO LEN g$: INK 5: GO SUB 400: PRINT AT 13,9+d;g$(d): GO SUB 401: INK 3: PRINT AT 14,9+d;g$(d): NEXT d: GO SUB 402
  9240 PAUSE 25: OVER 1: INK 7: BRIGHT 1: FOR d=0 TO 1: FOR C=0 TO 1: PRINT AT 13,22;"[N]": PAUSE 5: NEXT C: PAUSE 2: FOR C=0 TO 1: PRINT AT 14,9;"[N]": PAUSE 5: NEXT C: PAUSE 2: FOR C=0 TO 1: PRINT AT 12,11;"[N]": PAUSE 5: NEXT C: PAUSE 2: FOR C=0 TO 1: PRINT AT 15,19;"[N]": PAUSE 5: NEXT C: NEXT d: OVER 0
  9245 INK 6: BRIGHT 0: PAUSE 40: PRINT AT 20,5;" Copyright © A V S 1984 ": BRIGHT 1
  9290 PAUSE 500: RETURN 
  9300 DATA "1","11","111","1111","11111","111111","1111111","11111111"
  9310 DATA "10000000","11000000","11100000","11110000","11111000","11111100","11111110","11111111"
  9313 DATA "1000","101010","11100","1111111","11100","101010","1000","0"