10 REM ERIC POP 2 - WRITTEN BY A.BECKETT AND K.SAVETZ V1.0 11 REM VARIABLE S IS START FRAME, E IS END FRAME 15 DIM A$(8) 20 REM INITIALISE COMMS 30 XIO 36,#1,13,0,"R:" 35 XIO 38,#1,0,0,"R:" 37 OPEN #1,13,0,"R:" 39 XIO 40,#1,0,0,"R:" 40 OPEN #2,4,0,"K:" 42 PRINT #1:INPUT #1;A$:? "SENT: RECIEVED: ";A$ 45 GOTO 1000 50 REM RESET COMMS & DETERMINE START 60 STATUS #1,X 70 IF PEEK(747)+PEEK(748)>0 THEN INPUT #1,A$ 73 STATUS #1,X 80 IF S=0 THEN 99 90 ? #1;"FR";S;"SE" 95 INPUT #1;A$:? "SENT: FR";S;"SE RECIEVED: ";A$ 99 RETURN 100 REM SEEK TRACK AND PLAY SUB - NOT INTERRUPTABLE 110 GOSUB 50 130 INPUT #1;A$:? "SENT: FR";E;"PL RECIEVED: ";A$ 140 RETURN 150 REM SEEK AND PLAY SUBROUTINE - INTERRUPTABLE 155 REM RESET DISPLAY IF UP 157 ? #1;"RA0DS":INPUT #1,A$:? "SENT: RA0DS RECIEVED: ";A$ 160 GOSUB 50 170 ? #1;"FR";E;"PL":? "SENT: FR";E;"PL" 180 POKE 764,255 190 REM 200 IF PEEK(764)=255 THEN 230 210 GET #2,KEY:IF KEY<>27 THEN RETURN 220 POP :POP :KEY=0:GOTO 1500:REM MAIN MENU 230 STATUS #1,X 240 IF PEEK(747)+PEEK(748)=0 THEN 190:REM LOOP UNTIL ENTIRE SEGMENT SHOWN 250 KEY=0:RETURN :REM SEGMENT FINISHED WITHOUT A KEYPRESS 300 REM WAIT A WHILE FOR KEYPRESS 310 POKE 764,255 320 X=400:KEY=0 330 IF PEEK(53279)=6 THEN KEY=999:RETURN 340 IF PEEK(764)=255 THEN 370 350 GET #2,KEY:? "KEYS: ";KEY:IF KEY<>27 THEN RETURN 360 POP :POP :KEY=0:GOTO 1500 370 X=X-1 380 IF X>0 THEN 330 390 RETURN 395 END 400 REM WRONG KEY TRY AGAIN 401 ? #1;"4RA1DS":? "4RA1DS":INPUT #1;A$:? "SENT: 4RAIDS RECIEVED: ";A$ 410 ? #1;"1PR":INPUT #1,A$:? "SENT: 1PR RECIEVED: ";A$ 420 ? #1;"WRONG KEY, TRY AGAIN" 425 ? #1;"3PR":INPUT #1,A$:? "SENT: 3PR RECIEVED: ";A$ 427 ? #1;" " 430 INPUT #1;A$:PRINT "SENT: RECIEVED: ";A$ 440 GOSUB 300 450 RETURN 500 REM ATARI START PAGE 501 ? #1;"4RA1DS":INPUT #1;A$:? "SENT: 4RAIDS RECIEVED: ";A$ 510 ? #1;"1PR":INPUT #1,A$:? "SENT: 1PR RECIEVED: ";A$ 520 ? #1;"ATARI ERIC POP 2 DEMONSTRATION" 525 ? #1;"3PR":INPUT #1,A$:? "SENT: 3PR RECIEVED: ";A$ 530 ? #1;"PRESS ANY KEY TO BEGIN" 535 INPUT #1;A$ 540 GOSUB 300 545 IF KEY=0 THEN GOTO 540 550 RETURN 600 REM PRESS A KEY PROMPT 601 ? #1;"4RA1DS":INPUT #1;A$:? "SENT: 4RAIDS RECIEVED: ";A$ 610 ? #1;"1PR":INPUT #1,A$:? "SENT: 1PR RECIEVED: ";A$ 620 ? #1;"PLEASE MAKE A SELECTION" 630 REM INPUT #1;A$:PRINT A$ 635 ? #1;"3PR":INPUT #1,A$:? "SENT: 3PR RECIEVED: ";A$ 637 ? #1;" " 639 INPUT #1;A$:PRINT "SENT: RECIEVED: ";A$ 640 GOSUB 300 650 RETURN 1000 REM START OF ERIC 2 1001 S=1:E=10:GOSUB 150 1005 EXPERIENCE=99 1010 GOSUB 500 1011 WAIT=0 1015 IF PEEK(747)+PEEK(748)>0 THEN INPUT #1,A$ 1020 S=319:E=2056:GOSUB 150 1040 IF KEY=0 THEN WAIT=WAIT+1:GOSUB 300 1045 ? "WAIT: ";WAIT 1050 IF WAIT=2 THEN S=1810:E=2056:GOSUB 150 1070 IF KEY=89 THEN EXPERIENCE=1 1072 IF KEY<>0 AND KEY<>89 THEN EXPERIENCE=0 1075 IF WAIT=5 THEN GOTO 1000 1080 IF EXPERIENCE=0 THEN S=2058:E=2431:GOSUB 150:S=2445:E=3158:GOSUB 150:S=3160:E=6429:GOSUB 150:GOTO 1500 1090 IF EXPERIENCE=1 THEN S=6550:E=7844:GOSUB 150:GOTO 1500 1150 GOTO 1040 1500 REM MAIN MENU 1505 WAIT=0 1520 IF KEY=0 THEN WAIT=WAIT+1:GOSUB 300 1525 ? "WAIT: ";WAIT;" KEY=";KEY 1530 IF WAIT=2 THEN GOSUB 600 1540 IF KEY<>0 AND KEY<65 OR KEY>72 THEN S=7845:E=7941:GOSUB 150 1545 IF WAIT=5 THEN KEY=72 1550 IF KEY=65 THEN GOSUB 2000 1551 IF KEY=66 THEN GOSUB 3000 1552 IF KEY=67 THEN GOSUB 4000 1553 IF KEY=68 THEN GOSUB 5000 1554 IF KEY=69 THEN GOSUB 6000 1555 IF KEY=70 THEN GOSUB 7000 1556 IF KEY=71 THEN GOSUB 8000 1557 IF KEY=72 THEN GOSUB 9000 1800 GOTO 1520 2000 REM LEARNING 2005 WAIT=0 2010 S=8679:E=9725:GOSUB 150 2020 IF KEY=0 THEN WAIT=WAIT+1:GOSUB 300 2025 IF KEY=65 THEN GOTO 2100 2030 IF KEY=66 THEN GOTO 2200 2040 IF KEY=67 THEN GOTO 2300 2041 IF WAIT=2 THEN GOSUB 600 2044 ? "WAIT: ";WAIT 2045 IF KEY<>0 AND KEY<>65 AND KEY<>66 AND KEY<>67 AND KEY<>88 THEN GOSUB 400 2050 IF WAIT=5 THEN KEY=88 2055 IF KEY=88 THEN S=14948:E=14949:GOSUB 150:WAIT=0:RETURN 2060 GOTO 2020 2100 S=13150:E=14946:GOSUB 150 2120 GOTO 2020 2200 S=9727:E=10611:GOSUB 150:GOSUB 300:S=10614:E=10832:GOSUB 150 2220 GOTO 2020 2300 S=10834:E=11142:GOSUB 150:GOSUB 300:S=11143:E=11623:GOSUB 300:GOSUB 150:S=11624:E=11811:GOSUB 150:GOSUB 300 2310 S=11812:E=12876:GOSUB 150:GOSUB 300:S=12877:E=13148:GOSUB 150 2320 GOTO 2020 2330 IF KEY=66 THEN GOTO 2200 2600 IF KEY=0 THEN GOSUB 300 2700 IF KEY=0 THEN GOSUB 300 2800 IF KEY=0 THEN GOTO 1500 3000 REM HOME MANAGEMENT 3005 WAIT=0 3010 S=20925:E=22513:GOSUB 150 3020 IF KEY=0 THEN WAIT=WAIT+1:GOSUB 300 3025 IF KEY=65 THEN GOTO 3100 3030 IF KEY=66 THEN GOTO 3200 3040 IF KEY=67 THEN GOTO 3300 3041 IF WAIT=2 THEN GOSUB 600 3044 ? "WAIT: ";WAIT 3045 IF KEY<>0 AND KEY<>65 AND KEY<>66 AND KEY<>67 AND KEY<>88 THEN GOSUB 400 3050 IF WAIT=5 THEN KEY=88 3055 IF KEY=88 THEN S=14948:E=14949:GOSUB 150:WAIT=0:RETURN 3060 GOTO 3020 3100 S=22516:E=23914:GOSUB 150 3110 S=23917:E=24407:GOSUB 150 3120 GOTO 3020 3200 S=24409:E=27977:GOSUB 150 3210 S=25886:E=27977:GOSUB 150:GOSUB 300 3220 GOTO 3020 3300 S=25979:E=27103:GOSUB 150 3320 GOTO 3020 4000 REM HARDWARE 4005 WAIT=0 4010 S=39102:E=40534:GOSUB 150 4015 WAIT=0 4020 IF KEY=0 THEN WAIT=WAIT+1:GOSUB 300 4025 IF KEY=65 THEN GOTO 4100 4030 IF KEY=66 THEN GOTO 4200 4040 IF KEY=67 THEN GOTO 4300 4041 IF WAIT=2 THEN GOSUB 600 4044 ? "WAIT: ";WAIT 4045 IF KEY<>0 AND KEY<>65 AND KEY<>66 AND KEY<>67 AND KEY<>88 THEN GOSUB 400 4050 IF WAIT=5 THEN KEY=88 4055 IF KEY=88 THEN S=14948:E=14949:GOSUB 150:WAIT=0:RETURN 4060 GOTO 4020 4100 S=42208:E=42209:GOSUB 150:GOSUB 300 4105 WAIT=0 4110 IF KEY=68 THEN GOSUB 4180:GOTO 4100 4120 IF KEY=69 THEN GOSUB 4183:GOTO 4100 4130 IF KEY=70 THEN GOSUB 4186:GOTO 4100 4140 IF KEY=71 THEN GOSUB 4189:GOTO 4100 4141 IF WAIT=2 THEN GOSUB 600 4143 IF WAIT=5 THEN KEY=88 4144 ? "WAIT COUNT=";WAIT 4145 IF KEY=88 THEN S=42454:E=42455:GOSUB 150:GOTO 4015 4150 IF KEY=0 THEN WAIT=WAIT+1:GOSUB 300 4160 IF KEY<>0 THEN GOSUB 400:GOTO 4110 4170 GOTO 4110 4180 REM 600XL 4181 S=42210:E=42262:GOSUB 150:GOSUB 300:S=42266:E=42267:GOSUB 150:GOSUB 300:S=42268:E=42269:GOSUB 150:GOSUB 300 4182 RETURN 4183 REM 800XL 4184 S=42272:E=42324:GOSUB 150:GOSUB 300:S=42326:E=42327:GOSUB 150:GOSUB 300:S=42329:E=42330:GOSUB 150:GOSUB 300 4185 RETURN 4186 REM 1400XL 4187 S=42332:E=42385:GOSUB 150:GOSUB 300:S=42388:E=42389:GOSUB 150:GOSUB 300:S=42390:E=42391:GOSUB 150:GOSUB 300 4188 RETURN 4189 REM 1400XLD 4190 S=42393:E=42446:GOSUB 150:GOSUB 300:S=42448:E=42449:GOSUB 150:GOSUB 300:S=42451:E=42452:GOSUB 150:GOSUB 300 4191 RETURN 4200 S=42457:E=42458:GOSUB 150:GOSUB 300 4205 WAIT=0 4210 IF KEY=72 THEN GOSUB 4270:GOTO 4200 4220 IF KEY=73 THEN GOSUB 4280:GOTO 4200 4230 IF KEY=74 THEN GOSUB 4286:GOTO 4200 4241 IF WAIT=2 THEN GOSUB 600 4243 IF WAIT=5 THEN KEY=88 4244 ? "WAIT COUNT=";WAIT 4245 IF KEY=88 THEN S=42454:E=42455:GOSUB 150:GOTO 4015 4250 IF KEY=0 THEN WAIT=WAIT+1:GOSUB 300 4260 IF KEY<>0 THEN GOSUB 400:GOTO 4210 4269 GOTO 4210 4270 REM ATARI 1020 4271 S=42460:E=42512:GOSUB 150:GOSUB 300:S=42515:E=42516:GOSUB 150:GOSUB 300:S=42521:E=42522:GOSUB 150:GOSUB 300 4273 REM ATARI 1025 4274 S=42527:E=42580:GOSUB 150:GOSUB 300:S=42583:E=42584:GOSUB 150:GOSUB 300:S=42588:E=42589:GOSUB 150:GOSUB 300 4276 REM ATARI 1027 4277 S=42594:E=42647:GOSUB 150:GOSUB 300:S=42650:E=42651:GOSUB 150:GOSUB 300 4278 S=42457:E=42458:GOSUB 150:RETURN 4280 REM TRAK BALL 4281 S=42664:E=42716:GOSUB 150:GOSUB 300:S=42719:E=42205:GOSUB 150:GOSUB 300 4282 REM REMOTE CONTROLLERS 4283 S=42731:E=42781:GOSUB 150:GOSUB 300:S=42787:E=42788:GOSUB 150:GOSUB 300 4284 REM ATARI TOUCH TABLET 4285 S=42798:E=42851:GOSUB 150:GOSUB 300:S=42853:E=42854:GOSUB 150:GOSUB 300:S=42457:E=42458:GOSUB 150:RETURN 4286 REM ATARI 1010 4287 S=42868:E=42921:GOSUB 150:GOSUB 300:S=42924:E=42925:GOSUB 150:GOSUB 300:S=42927:E=42928:GOSUB 150:GOSUB 300 4288 S=42931:E=42932:GOSUB 150:GOSUB 300 4290 REM ATARI 1030 4291 S=42935:E=42988:GOSUB 150:GOSUB 300:S=42990:E=42991:GOSUB 150:GOSUB 300 4293 REM ATARI 1050 4294 S=43002:E=43055:GOSUB 150:GOSUB 300:S=43057:E=43058:GOSUB 150:GOSUB 300:S=43061:E=43062:GOSUB 150:GOSUB 300 4295 S=43065:E=43066:GOSUB 150:GOSUB 300 4296 S=42457:E=42458:GOSUB 150:RETURN 4300 S=40537:E=42205:GOSUB 150 4320 GOTO 4020 4500 RETURN 5000 REM PROGRAMMING 5005 WAIT=0 5010 IF EXPERIENCE=0 THEN S=32213:E=33690:GOSUB 150 5015 IF EXPERIENCE=1 THEN S=38116:E=39096:GOSUB 150 5020 IF KEY=0 THEN WAIT=WAIT+1:GOSUB 300 5025 IF KEY=65 THEN GOTO 5100 5030 IF KEY=66 THEN GOTO 5200 5040 IF KEY=67 THEN GOTO 5300 5041 IF WAIT=2 THEN GOSUB 600 5044 ? "WAIT: ";WAIT 5045 IF KEY<>0 AND KEY<>65 AND KEY<>66 AND KEY<>67 AND KEY<>88 THEN GOSUB 400 5050 IF WAIT=5 THEN KEY=88 5055 IF KEY=88 THEN S=14948:E=14949:GOSUB 150:WAIT=0:RETURN 5060 GOTO 5020 5100 S=36752:E=37505:GOSUB 150:GOSUB 300 5110 S=37506:E=38111:GOSUB 150 5120 GOTO 5020 5200 S=35299:E=36061:GOSUB 150:GOSUB 300 5210 S=36062:E=36750:GOSUB 150 5220 GOTO 5020 5300 S=33692:E=35166:GOSUB 150:GOSUB 300 5310 S=35167:E=35297:GOSUB 150 5320 GOTO 5020 5500 RETURN 6000 REM PROFESSIONAL 6005 WAIT=0 6010 S=27109:E=28847:GOSUB 150 6020 IF KEY=0 THEN WAIT=WAIT+1:GOSUB 300 6025 IF KEY=65 THEN GOTO 6100 6030 IF KEY=66 THEN GOTO 6200 6040 IF KEY=67 THEN GOTO 6300 6041 IF WAIT=2 THEN GOSUB 600 6044 ? "WAIT: ";WAIT 6045 IF KEY<>0 AND KEY<>65 AND KEY<>66 AND KEY<>67 AND KEY<>88 THEN GOSUB 400 6050 IF WAIT=5 THEN KEY=88 6055 IF KEY=88 THEN S=14948:E=14949:GOSUB 150:WAIT=0:RETURN 6060 GOTO 6020 6100 S=28850:E=30377:GOSUB 150:GOSUB 300 6120 GOTO 6020 6200 S=30379:E=31441:GOSUB 150:GOSUB 300 6220 GOTO 6020 6300 S=31443:E=32207:GOSUB 150:GOSUB 300 6320 GOTO 6020 7000 REM ENTERTAINMENT 7005 WAIT=0 7010 S=44040:E=44965:GOSUB 150 7020 IF KEY=0 THEN WAIT=WAIT+1:GOSUB 300 7025 IF KEY=65 THEN GOTO 7100 7030 IF KEY=66 THEN GOTO 7200 7040 IF KEY=67 THEN GOTO 7300 7041 IF WAIT=2 THEN GOSUB 600 7044 ? "WAIT: ";WAIT 7045 IF KEY<>0 AND KEY<>65 AND KEY<>66 AND KEY<>67 AND KEY<>88 THEN GOSUB 400 7050 IF WAIT=5 THEN KEY=88 7055 IF KEY=88 THEN S=14948:E=14949:GOSUB 150:WAIT=0:RETURN 7060 GOTO 7020 7100 S=45254:E=46027:GOSUB 150:GOSUB 300 7110 S=46028:E=46389:GOSUB 150 7120 GOTO 7020 7200 S=46392:E=46980:GOSUB 150:GOSUB 300 7210 S=46981:E=47282:GOSUB 150 7220 GOTO 7020 7300 S=47285:E=48201:GOSUB 150 7320 GOTO 7020 8000 REM PERSONAL DEVELOPMENT 8005 WAIT=0 8010 S=14951:E=16237:GOSUB 150 8020 IF KEY=0 THEN WAIT=WAIT+1:GOSUB 300 8025 IF KEY=65 THEN GOTO 8100 8030 IF KEY=66 THEN GOTO 8200 8040 IF KEY=67 THEN GOTO 8300 8041 IF WAIT=2 THEN GOSUB 600 8044 ? "WAIT: ";WAIT 8045 IF KEY<>0 AND KEY<>65 AND KEY<>66 AND KEY<>67 AND KEY<>88 THEN GOSUB 400 8050 IF WAIT=5 THEN KEY=88 8055 IF KEY=88 THEN S=14948:E=14949:GOSUB 150:WAIT=0:RETURN 8060 KEY=0:GOTO 8020 8100 S=16238:E=17705:GOSUB 150:GOSUB 300 8110 S=17706:E=18041:GOSUB 150 8120 GOTO 8020 8200 S=18042:E=18883:GOSUB 150:GOSUB 300 8210 S=18884:E=19580:GOSUB 150 8220 GOTO 8020 8300 S=19582:E=20920:GOSUB 150 8320 GOTO 8020 9000 REM GOODBYE SEQUENCE 9010 IF EXPERIENCE=0 THEN S=43072:E=44035:GOSUB 150:GOTO 1000:REM RESTART 9020 IF EXPERIENCE=1 THEN S=48204:E=48981:GOSUB 150:GOTO 1000:REM RESTART