10 REM ***************************
15 REM *      TELEPORTER         *
20 REM *BY CLEVELAND M. BLAKEMORE*
25 REM ***************************
30 POKE53281,.:POKE53280,12:DIM A(63,2),S$(48)
35 VI=5:K=.:F=.:NB=.:NT=.:W=.:W$="":I$="":C$=I$:D$=I$:C=.:CL=.:SB=.:SC=.:L=.
40 X$="[144]":R$=""
45 X=RND(-TI/37):PLOT=65520:PRINT"[147] PLEASE WAIT...INITIALIZING GAME."
50 S$(.)="[155][146]&CAPTAIN:                              ":S$(1)=" STAND BY ....."
55 S$(2)="PREPARE FOR ":S$(3)="KRELL":S$(4)="ALGON":S$(5)="BETA IV":S$(6)="CETA
60 S$(7)[178]"ALPHAN":S$(8)[178]"SOL":S$(9)[178]"TIRUS":S$(10)[178]"AMBASSADOR":S$(11)[178]"TRADER
65 S$(12)="CREWMEMBER":S$(13)="PILOT":S$(14)="ENGINEER":S$(15)="INSPECTOR
70 S$(16)[178]"OFFICER":S$(17)[178]"PASSING THRU RADIATION STORM"
75 S$(18)[178]" $%&# COMPUTER ON THE FRITZ !":S$(19)[178]"TRANSMISSION GARBLED!"
80 S$(20)[178]"PHONY...":S$(21)[178]"WE TRY TO CONSERVE ENERGY HERE":S$(22)[178]"LUNCHTIME
85 S$(23)="METEOR BELT-TURBULENCE AHEAD":S$(24)="ANOTHER ALIEN FREELOADER."
90 S$(25)="YOU JUST FRIED THE ":S$(26)="YOU'RE FIRED!GET OFF MY SHIP!"
95 S$(27)="GOOD JOB."
100 FORX=.TO10:READA$:S$(28+X)=A$:NEXT
105 FORX=.TO9:READA$:S$(39+X)=A$:NEXT
110 FORX=.TO32:READA:POKE679+X,A:NEXT
115 POKE56334,PEEK(56334)AND254
120 POKE1,PEEK(1)AND251:SYS679:POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
125 READA:IFA=-1THEN135
130 FORX=.TO7:READD:POKE61440+A*8+X,D:NEXT:GOTO125
135 POKE648,192:PRINT"[147] WELCOME ABOARD THE U.S.S. NEFARIUS !"
140 POKE56576,PEEK(56576)AND252:POKE53272,12:V=53248:POKEV+21,.
145 D=49152:FORX=.TO319:READA:POKED+20*64+X,A:NEXT:POKEV,92:POKEV+1,208
150 POKEV+8,240:POKEV+9,210:POKEV+23,27:POKEV+43,14
155 POKEV+27,23:POKEV+28,12:POKEV+29,27:FORX=.TO48:POKED+25*64+X,255:NEXT
160 FORX=48TO63:POKED+25*64+X,.:NEXT
165 FORX=.TO63:POKED+26*64+X,255:NEXT
170 POKEV+4,250:POKEV+5,216:POKED+1016,20:POKED+1017,26:POKED+1018,24
175 POKED+1019,24:POKEV+6,159:POKEV+7,133:POKEV+39,11:POKEV+40,PEEK(V+33)
180 A=780:X=781:Y=782:P=783:POKEV+2,159:GOSUB380
185 POKEV+3,133:S=54272:FORSC=STOS+24:POKESC,.:NEXT
190 GOSUB510:PRINTS$(.);
195 POKES+1,34:POKES,10:POKES+5,129:POKES+6,129:POKES+24,10:POKES+4,129
200 POKEV+21,27:FORSC=26TO255:POKED+1016,SC:POKED+1020,SC:NEXT:GOSUB550
205 POKED+1020,25:POKED+1016,20:POKES+4,.:GOSUB510:PRINTTAB(9)S$(1);
210 F=.:GOSUB640:R%=22+RND(0)*3:IFRND(1)>.5THENF=1
215 NB=INT(RND(1)*45+50):NT=INT(RND(1)*30+65)
220 NB=NB+INT(RND(1)*10)/10:NT=NT+INT(RND(1)*10)/10:POKED+1018,R%
225 POKED+1019,R%:IFFANDRND(1)*7>LTHENPOKED+1019,22+INT(RND(0)*3)
230 GOSUB550
235 N$=S$(3+(RND(1)*7)):T$=S$(10+(RND(1)*7)):N$=N$+CHR$(32)+T$
240 GOSUB510:PRINTTAB(9);CHR$(18);S$(2);N$;CHR$(19):GOSUB550
245 POKEX,20:POKEY,16:POKEP,.:SYSPLOT:PRINTI$;MID$(STR$(NB)+".0",2,4);
250 POKEX,22:POKEY,16:POKEP,.:SYSPLOT:PRINTMID$(STR$(NT)+".0",2,4);
255 POKED+1016,21:POKEV+37,RND(0)*10:POKEV+38,RND(0)*10:POKEV+41,RND(0)*10
260 POKEV+42,PEEK(V+41):IFFANDRND(1)*12>LTHENPOKEV+42,RND(0)*10
265 POKEV+21,PEEK(V+21)OR4
270 W=INT(RND(0)*5)*2:W$=S$(39+W)
275 POKEX,20:POKEY,23:POKEP,.:SYSPLOT:PRINTW$;:GOSUB550
280 GOSUB640:IFL>12THENGOSUB565
285 GOSUB550:FORSC=STOS+24:POKESC,.:NEXT:POKES,.:POKES+5,8
290 POKES+6,123:POKES+24,15:POKES+4,21:SC=133
295 FORIR=.TO1:F1=PEEK(V+3):POKES+15,F1*.1:POKES+1,F1*.01
300 EC=(INT(RND(1)*VI)+INT(RND(1)*8*F))*.1:VI=-VI
305 POKEX,20:POKEY,16:POKEP,.:SYSPLOT:PRINTC$;MID$(STR$(NB+EC)+".0",2,4);
310 PRINT"[157][157][157][157]";MID$(STR$(NT+EC)+".0",2,4);
315 IFSBTHENPOKEV+22,(PEEK(V+22)AND248)ORRND(1)*8
320 POKEX,22:POKEY,23:POKEP,.:SYSPLOT:PRINTD$;S$(39.6+W+ABS(EC)):NEXT
325 POKED+1016,21.5-ABS(EC)-(RND(1)*.1)
330 IFPEEK(56321)=239THEN615
335 SC=SC-1:POKEV+3,SC:IFSC>90THEN295
340 POKEV+22,(PEEK(V+22)AND248):POKES+4,.
345 GOSUB510:PRINTS$(.);:GOSUB510
350 IFFTHENPRINTTAB(9)S$(24);:POKED+1016,20:K=K+1:GOSUB640:GOSUB520:GOTO360
355 GOSUB550:PRINTTAB(9)S$(27);:POKED+1016,21
360 L=L+1:GOSUB640:C$=I$:D$=I$:POKEV+21,27:SB=.
365 IFL<21THENGOSUB550:GOTO185
370 IFK>6THENGOSUB510:PRINTS$(.);:GOSUB510:PRINTTAB(9);S$(26);
375 GOTO650
380 PRINT"[147]"TAB(8)"[152][205][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][206]
385 [153][163]9)"(null) STEP   TELEPORTER   (null)WAIT (null)
390 PRINTTAB(9)"[212][169][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][223][146][217]
395 [153][163]9)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)WAIT(null)
400 PRINTTAB(9)"[212]    [212][163][163][163][163][163][163][163][163][163][163][146][217]    [217]
405 [153][163]9)"(null)    (null) (null)(null)(null)(null)(null)(null)(null)(null) WAIT(null)    (null)
410 PRINTTAB(9)"[212]    [212] [215]      [215] [146][217]    [217]
415 [153][163]9)"(null)    (null) (null)  STEP(null)  (null) WAIT(null)    (null)
420 PRINTTAB(9)"[212]    [212] [215] [169]  [223] [215] [146][217]    [217]
425 [153][163]9)"(null)    (null) (null) (null)  STEP (null) WAIT(null)    (null)
430 PRINTTAB(9)"[212]    [212] [215]  [223][169]  [215] [146][217]    [217]
435 [153][163]9)"(null)    (null) (null)      (null) WAIT(null)    (null)
440 PRINTTAB(9)"[212]    [212] [215][215][215][215][215][215][215][215] [146][217]    [217]
445 [153][163]9)"(null)    (null) TOTOTOTOTOTOTOTOTOWAIT(null)    (null)
450 PRINTTAB(8)"[206][183][183][183][169][206] [206][207][183][183][183][183][183][183][208][205] [205][223][146][183][183][183][205]
455 [153][163]7)"(null)   STEP(null)TO(null)WAITSTEP        (null)(null)TO(null)(null)WAIT   (null)
460 PRINTTAB(6)"[206]   [169][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][223][146]   [205]
465 [153][163]5)"(null)    (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)WAIT    (null)
470 PRINTTAB(4)"[206]"SPC(30)"[205]"
475 PRINTTAB(3)"[206]  [169][165][176]HELM[195][178][195][195][195][195][195][178][195][195][195][195][195][178]IMAGE[195][167][223][146] [205]
480 [153][163]2)"(null)  STEP(null)FNPEEKWAIT     PEEKPRINTBWAITPRINT#    PEEKPRINTR_WAITPRINT#   PEEKWAIT      THEN(null)(null)WAIT (null)
485 PRINT" [206]  [169][209] [165][194][146]     [194][153] [146][152]    [194][153]  [146][152]   [194][146]      [167] [209][223][146] [205]
490 [153]"(null)  STEP(null)  FNPEEKWAIT     PEEKPRINTTWAITPRINT#    PEEKPRINTW_WAITPRINT#   PEEKWAIT      THEN  (null)(null)WAIT (null)";
495 [153]"  STEP(null)   FNPEEKWAIT     PEEKPRINT WAITPRINT#    PEEKPRINT  WAITPRINT#   PEEKWAIT      THEN   (null)(null)WAIT ";S$(0);
500 [153][199](157);[199](148);[199](32);[199](19);:[142]
505 [143] SET CURSOR
510 [151]P,.:[151]Y,.:[151]X,24:[158]PLOT:[142]
515 [143] ABORT/FRY ALIEN
520 [129]SC[178]S[164]S[170]24:[151]SC,.:[130]:[151]S[170]1,10:[151]S[170]5,75:[151]S[170]6,30:[151]S,25
525 [151]S[170]24,15:[151]S[170]4,23:[151]V[170]3,90
530 [141]510:[153]S$(.);:[141]510:[153][163]9)"LIST(null) (null) (null) (null) (null) ABORT ! (null) (null) (null) (null)";
535 [129]SC[178].[164]64:[153][199](14);:[151]V[170]33,SC:[153][199](142);:[151]S[170]15,SC:[130]
540 [151]V[170]3,133:[151]S[170]4,.:[141]550:[141]640:[141]510:[153]S$(.);:[142]
545 [143] BEEP
550 [129]SC[178]S[164]S[170]24:[151]SC,.:[130]:[151]S[170]24,15
555 [151]S[170]1,25:[151]S,5:[151]S[170]5,20:[151]S[170]6,20:[151]S[170]4,33:[129]SC[178].[164]75:[130]
560 [151]S[170]4,.:[142]
565 [141]510:[153]S$(.);:[141]510:[153][163]9);
570 [145]L[171]12[141]580,605,580,585,590,595,600,605
575 [141]640:[141]510:[153]S$(.);:[142]
580 C$[178]X$:[153]S$(18);:[142]
585 [151]V[170]21,30:[153]S$(22);:[142]
590 D$[178]X$:SB[178]1:[153]S$(17);:[142]
595 [151]D[170]1018,[187](0)[172]3[170]22:[153]S$(19);:[142]
600 C$[178]X$:D$[178]X$:[153]S$(21);:[142]
605 SB[178]1:D$[178]X$:[153]S$(23);:[142]
610 [143] CHECK FOR CORRECT ABORT
615 [151]V[170]22,[194](V[170]22)[175]248
620 [141]520:[141]510:[139]F[167][153][163]9)S$(20);:[141]510:[137]355
625 [141]510:[153]S$(.);:[141]510:[153][163]9)S$(25);T$;"!";:K[178]K[170]1:[141]510
630 [151]D[170]1016,20:[141]640:[137]360
635 [143] DELAY
640 [129]SC[178].[164]3000:[130]:[142]
645 [143] RATE PERFORMANCE
650 [141]550:[141]640:[141]550
655 [141]510:[153]S$(.);:[141]510:[153][163]9)R$;"RATINGLENLEN>";
660 [129]X[178].[164]10:[139]X[172]2[178]20[171]K[176]X[172]2[170]1[178]20[171]K[167][153]S$(28[170]X);:[141]550
665 [130]:[141]640:[141]640:[141]550
670 [151]648,4:[151]679,.:[158]679
675 [143] RATINGS
680 [131] RAW RECRUIT,SPACE CADET,ENSIGN,SPECIALIST,LIEUTENANT,1ST LIEUTENANT
685 [131] CAPTAIN,MAJOR,ADMIRAL,GALACTIC WHIZ KID,REGULAR RICKY ROCKET
690 REN WAVE[129]M [131]
695 [131] $$$,%%%,%$$,$%$,*(*,(*(,)(),()(,$%%,%$$
700 [143] ML COPYDOWN ROUTINE
705 [131] 169,,133,251,133,253,169,208,133,252,169,240,133,254,162,8
710 [131] 160,,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96
715 [143] CHARACTER DATA
720 [131]036,000,004,010,017,160,064,000,000
725 [131]037,000,032,080,136,005,002,000,000
730 [131]038,239,199,147,147,131,131,147,187
735 [131]040,000,056,040,040,239,000,000,000
740 [131]041,000,000,000,000,251,010,010,014
745 [131]042,000,016,040,040,199,000,000,000,-1
750 [143] SPRITE DATA
755 [131]255,255,255,135,255,193,143,254
760 [131]225,143,252,097,132,000,065,133
765 [131]147,065,132,214,065,134,016,193
770 [131]132,040,065,132,000,065,186,124
775 [131]189,197,069,067,130,130,129,129
780 [131]125,033,128,130,113,128,124,113
785 [131]128,000,081,128,000,001,128,000
790 [131]001,128,000,001,255,255,255,060
795 [131]255,255,255,135,255,193,143,254
800 [131]225,143,252,097,132,000,065,132
805 [131]214,065,132,016,065,134,016,193
810 [131]132,040,065,132,130,065,186,068
815 [131]189,197,057,067,130,130,129,129
820 [131]125,033,128,130,113,128,124,113
825 [131]128,000,081,128,000,001,128,000
830 [131]001,128,000,001,255,255,255,060
835 [131]005,020,080,000,085,000,000,215
840 [131]000,000,125,000,000,020,000,001
845 [131]085,064,005,086,080,020,085,020
850 [131]080,085,005,064,150,001,064,170
855 [131]001,097,085,073,133,065,082,149
860 [131]000,086,020,000,020,020,000,020
865 [131]020,000,020,020,000,020,020,000
870 [131]020,028,000,052,252,000,063,044
875 [131]000,065,000,001,020,064,012,040
880 [131]048,000,020,000,000,065,000,000
885 [131]020,000,000,020,000,001,085,064
890 [131]004,020,016,144,020,006,032,085
895 [131]008,129,020,066,004,020,016,004
900 [131]150,016,036,020,024,008,085,032
905 [131]032,085,008,001,215,064,005,085
910 [131]080,006,065,144,020,000,020,044
915 [131]000,000,000,001,065,064,007,215
920 [131]208,007,150,208,001,085,064,000
925 [131]105,000,000,020,000,001,150,064
930 [131]005,105,080,020,105,020,016,105
935 [131]004,016,150,004,016,020,004,020
940 [131]020,020,016,020,004,004,085,016
945 [131]000,085,000,001,065,064,005,000
950 [131]080,005,000,080,021,000,084,044