start tok64 d64-sx2rYr
10 POKE53280,0:POKE53281,0
15 IFf1=1THEN35
16 IFf1=2THEN40
18 IFf1=3THEN45
19 IFf1=4THEN50
20 PRINT"{clear}":GOSUB800
30 f1=1:LOAD"star trek ml 1.d",8,1
35 f1=2:LOAD"star trek ml 2.d",8,1
40 f1=3:LOAD"star trek ml 3.d",8,1
45 f1=4:LOAD"star trek ml 4.d",8,1
50 PRINT"{home}{black}load"CHR$(34)"star trek v1.d"CHR$(34)",8"
60 POKE198,6
70 DATA19,13,82,85,78,13
80 FORi=1TO6:READx:POKE630+i,x:NEXT
100 POKE44,24:POKE24*256,0
200 NEW
800 PRINT"{white}";:FORy=0TO22:x%=RND(1)*38:PRINTTAB(x%)".":NEXT
900 PRINT"{home}{white}{reverse off}{down*3}{right*9}{cm @*3}{right*3}{cm @*5}{right*3}{cm @*3}{right*3}{cm @*4}"
995 PRINT"{right*8}N{space*2}NM{right}N{space*4}N{cm g}{right}N{space*2}NM{right}N{space*3}NM"
1000 PRINT"{red}{right*7}{reverse on}{sh pound}{space*3}{cm asterisk}{reverse off}{white}N{cm g}{red}{reverse on}{space*5}{reverse off}{white}N{red}{right}{reverse on}{sh pound}{space*3}{cm asterisk}{reverse off}{white}N{cm g}{red}{reverse on}{space*4}{cm asterisk}{reverse off}{white}N{cm g}{red}
1010 PRINT"{right*7}{reverse on} {reverse off}{white}{cm m}{red}{right*2}{reverse on} {reverse off}{white}N{red}{right*3}{reverse on} {reverse off}{white}{cm m}{red}{right*3}{reverse on} {reverse off}{white}{cm m}{red}{right*2}{reverse on} {reverse off} {white}{cm g}{red}{reverse on} {reverse off}{white}{cm m}{red}{right*2}{reverse on} {reverse off}{white} {cm g}{red}
1020 PRINT"{right*7}{reverse on} {reverse off}{white}N{cm t*2}NM{red}{right*3}{reverse on} {reverse off}{white}{cm m}{red}{right*3}{reverse on} {reverse off}{white}N{cm t*2}{red}{reverse on} {reverse off} {white}{cm g}{red}{reverse on} {reverse off}{white}N{cm t*2}{red}{reverse on} {reverse off}{white}N{red}
1030 PRINT"{right*7}{cm asterisk}{reverse on}{space*3}{cm asterisk}{reverse off}{white}N{cm g}{red}{right*2}{reverse on} {reverse off}{white}{cm m}{red}{right*3}{reverse on}{space*5}{reverse off} {white}{cm g}{red}{reverse on}{space*4}{reverse off}{sh pound}{white}{cm g}{red}
1040 PRINT" {right*6}{white}NN{cm g}{red}{right}{reverse on} {reverse off} {white}{cm g}{red}{right*2}{reverse on} {reverse off}{white}{cm m}{red}{right*3}{reverse on} {reverse off}{white}{cm m}{red}{right*2}{reverse on} {reverse off} {white}{cm g}{red}{reverse on} {reverse off}{white}{cm m}{red}{right}{reverse on} {reverse off} {white}{cm g}{red}
1050 PRINT"{right*7}{reverse on} {reverse off}{white}N{cm t*2}{red}{reverse on} {reverse off}{white}N{red}{right*3}{reverse on} {reverse off}{white}{cm m}{red}{right*3}{reverse on} {reverse off}{white}{cm m}{red}{right*2}{reverse on} {reverse off} {white}{cm g}{red}{reverse on} {reverse off}{white}{cm m}{red}{right}{reverse on} {reverse off}{white}NM{red}
1060 PRINT"{right*7}{cm asterisk}{reverse on}{space*3}{reverse off}{sh pound}{right*4}{reverse on} {reverse off}{white}N{red}{right*3}{reverse on} {reverse off}{white}N{red}{right*2}{reverse on} {reverse off}{white}N{red}{right}{reverse on} {reverse off}{white}N{red}{right}{reverse on} {cm asterisk}{reverse off}{white}N{red}
1065 PRINT"{down}{white}written & donated to tpug by david neale";
1070 PRINT"{right*8}{white}{cm @*5}{right*2}{cm @*4}{right*3}{cm @*5}{right*2}{cm @}{right*3}{cm @}
1080 PRINT"{right*7}N{space*4}N{cm g}N{space*3}NM{right}N{space*4}N{cm g}NN{cm g}{right}NN{cm g}{red}
1100 PRINT"{right*7}{reverse on}{space*5}{reverse off}{white}N{red}{right}{reverse on}{space*4}{cm asterisk}{reverse off}{white}N{cm g}{red}{reverse on}{space*5}{reverse off}{white}N{red}{right}{reverse on} {reverse off} {white}{cm g}{red}{right}{reverse on} {reverse off}{white}N{red}
1110 PRINT"{right*9}{reverse on} {reverse off}{white}{cm m}{red}{right*3}{reverse on} {reverse off}{white}{cm m}{red}{right*2}{reverse on} {reverse off} {white}{cm g}{red}{reverse on} {reverse off}{white}{cm m}{cm @*2}{red}{right*3}{reverse on} {reverse off} {white}L{red}{reverse on}{sh pound}{reverse off}{sh pound}
1120 PRINT"{right*9}{reverse on} {reverse off}{white}{cm m}{red}{right*3}{reverse on} {reverse off}{white}N{cm t*2}{red}{reverse on} {reverse off}{white}N {red}{reverse on} {reverse off}{white}N N{cm g}{red}{right*2}{reverse on} {reverse off}{white}N{red}{reverse on}{sh pound}{reverse off}{sh pound}{white}{cm g}{red}
1130 PRINT"{right*9}{reverse on} {reverse off}{white}{cm m}{red}{right*3}{reverse on}{space*4}{reverse off}{sh pound}{white}{cm g}{red}{right}{reverse on}{space*3}{reverse off}{white}N{red}{right*3}{reverse on}{space*3}{reverse off}{white}NM{red}
1140 PRINT"{right*9}{reverse on} {reverse off}{white}{cm m}{red}{right*3}{reverse on} {reverse off}{white}{cm m}{red}{right}{reverse on} {reverse off} {white}{cm g}{red}{right}{reverse on} {reverse off}{white}{cm m}{cm @*4}{red}{right}{reverse on} {reverse off}{white}{cm m}{red}{cm asterisk}{reverse on}{cm asterisk}{reverse off} {white}M{red}
1150 PRINT"{right*9}{reverse on} {reverse off}{white}{cm m}{red}{right*3}{reverse on} {reverse off}{white}{cm m}{red}{right}{reverse on} {reverse off}{white}NM{red}{right}{reverse on} {reverse off}{white}N{space*3}N{cm g}{red}{reverse on} {reverse off}{white}{cm m}{red}{right}{cm asterisk}{reverse on}{cm asterisk}{reverse off}{white}N{cm g}{red}
1160 PRINT"{right*9}{reverse on} {reverse off}{white}N{red}{right*3}{reverse on} {reverse off}{white}N{red}{right}{reverse on} {cm asterisk}{reverse off}{white}N{red}{right}{reverse on}{space*5}{reverse off}{white}N{red}{right}{reverse on} {reverse off}{white}N{red}{right*2}{reverse on} {reverse off}{white}N
2000 RETURN
stop tok64
(bastext 1.0)