--- title: "2K games will please" type: "article" slug: "2k-games-will-please" url: "http://localhost/article/2k-games-will-please/" markdown_url: "http://localhost/article/2k-games-will-please.md" published_at: "2020-10-27T17:09:13+00:00" modified_at: "2025-09-22T09:13:30+00:00" featured_image: url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg" excerpt: "Starblaster is one of six 2k games on a tape sold by Softsync. The game uses machine language to scroll starts right to left across the screen. They player scores points by moving a based in front of the stars. The major problem with Starblaster is the instructions. The information with the games gives the…" category: - name: "Timex Sinclair User" slug: "timex-sinclair-user" taxonomy: "category" url: "http://localhost/category/periodicals/timex-sinclair-user/" post_tag: - name: "1983" slug: "year-1983" taxonomy: "post_tag" url: "http://localhost/tag/year-1983/" - name: "Softsync" slug: "softsync" taxonomy: "post_tag" url: "http://localhost/tag/softsync/" - name: "Software review" slug: "software-review" taxonomy: "post_tag" url: "http://localhost/tag/software-review/" - name: "TS 1000" slug: "ts1000" taxonomy: "post_tag" url: "http://localhost/tag/ts1000/" model: - name: "Timex/Sinclair 1000" slug: "ts-1000" taxonomy: "model" url: "http://localhost/model/ts-1000/" publication: "Timex Sinclair User" publication_r: id: 10278 title: "Timex Sinclair User" type: "periodical" url: "http://localhost/periodical/timex-sinclair-user/" volume: "1" issue: "2" issues_articles: - id: 26867 title: "Timex Sinclair User n2" type: "issue" url: "http://localhost/issue/timex-sinclair-user-n2/" pages: "7" pubdate: "July 1983" product_reviews: - id: 11576 title: "2K Games Pack" type: "product" url: "http://localhost/product/2k-games-pack/" archive_link: false volumeissue: "v1n2" companies_articles: - id: 11319 title: "Softsync, Inc." type: "company" url: "http://localhost/company/softsync/" article_media: - id: 56501 title: "2K Games Pack" type: "computer_media" url: "http://localhost/computer_media/2k-games-pack/" --- # 2K games will please [Starblaster](http://localhost/product/2k-games-pack/) is one of six 2k games on a tape sold by [Softsync](http://localhost/company/softsync/). The game uses machine language to scroll starts right to left across the screen. They player scores points by moving a based in front of the stars. The major problem with Starblaster is the instructions. The information with the games gives the wrong controls for movement. Also, the instructions do not clearly tell the player how to score points. The other five games of this package are all of good quality with good graphics and fast action. This games pack is a good buy for those limited to 2K of memory. Rating: 7. ## Source Code: 2K Games Pack ``` 1 SAVE "AWAL[K]" 2 FAST 3 FOR J=0 TO 20 4 FOR I=0 TO 30 5 PRINT AT J,I;"[:]" 6 NEXT I 7 PRINT 8 NEXT J 10 RAND 11 LET X=INT (RND*15)+2 15 SLOW 20 LET Y=INT (RND*16)+6 30 LET A=15 40 LET B=3 41 LET S=0 46 PRINT AT A,B;"[O]";AT A+1,B-1;"▙,,▟";AT A+2,B-1;"▙[:]▟";AT 20,8 47 PRINT AT X-1,Y+2;"[,,][▒][,,]";AT X,Y;"[,,][▒]~~~~~~[▒][,,]";AT X+1,Y+2;"[~~][~~][~~]" 48 LET R=X 49 LET C=Y 50 LET RE=A 51 LET CE=B 53 LET X=X+2*(RND<.5 AND X<18)-2*(RND>.5 AND X>3) 55 LET Y=Y+2*(RND>.5 AND Y<23)-2*(RND>.5 AND Y>0) 56 LET B=B+(INKEY$ ="8" AND B<28)-(INKEY$ ="5" AND B>1) 57 LET A=A+(INKEY$ ="6" AND A<18)-(INKEY$ ="7" AND A>0) 60 IF RE=R-1 AND CE=C+3 THEN GOTO 101 61 PRINT AT R-1,C+2;"[:][:][:]";AT R,C;"[:][:][:][:][:][:][:]";AT R+1,C+2;"[:][:][:]" 62 IF RE=A AND CE=B THEN GOTO 45 63 PRINT AT RE,CE;"[:]";AT RE+1,CE-1;"[:][:][:]";AT RE+2,CE-1;"[:][:][:]" 64 IF S=100 THEN GOTO 103 65 LET S=S+1 66 GOTO 45 101 PRINT AT 1,5;"[T][O][T][A][L]█[M][O][V][E][S][=]";S 103 PRINT AT 3,5;"[E][N][E][R][G][Y]█[L][E][F][T][=]";100-S 1 SAVE "CPATRO[L]" 9 CLS 10 LET X=1 15 LET QA=0 20 LET H=10 30 LET S=X-X 40 LET B=X 50 FOR A=5 TO 25 60 PRINT AT 15,A;"[~~]" 75 IF A<10 THEN PRINT AT 11+A,5;"▌";AT 11+A,25;"▐" 80 NEXT A 81 PRINT AT 19,7;"[O] [0]";AT 20,6;"▀[P]▚▞[P]▚" 82 PRINT AT 18,16;"["]";AT 19,15;"▞[G]▚";AT 20,15;"▗▀▖" 100 LET H=H+(INKEY$ ="6")-(INKEY$ ="7") 120 PRINT AT H-X,B;"--▐--" 130 PRINT AT H,B;"▀▀██" 134 IF QA=1 THEN LET BA=16 135 IF QA=0 THEN LET BA=INT (RND*14)+5 136 IF QA=0 THEN PRINT AT 14,BA;"▟▙" 137 LET FA=INT (RND*6) 138 IF FA<>2 THEN GOTO 144 139 FOR J=1 TO 14-H 140 PRINT AT 14*J,BA;"[+]";AT 14-J,BA;" " 141 NEXT J 143 IF BA>=B AND BA=14 OR H<2 THEN STOP 145 IF INKEY$ ="9" THEN GOTO 235 147 IF QA=1 AND A=1 AND INKEY$ ="R" THEN GOTO 260 150 PRINT AT H-X,B;" " 160 PRINT AT H,B;" " 170 IF B=25 THEN LET B=X 180 IF RND>.6 THEN LET H=H+X 190 LET B=B+X 215 PRINT AT 14,BA;" " 220 GOTO 100 235 IF B=BA OR B=BA+1 THEN LET QA=1 240 LET S=S+X 241 LET RE=H 242 IF QA=1 THEN LET RE=RE-4 245 FOR J=1 TO 14-RE 246 PRINT AT H+J,B;"*";AT H+J,B;" " 247 NEXT J 248 IF B=BA+1 OR B=BA THEN PRINT AT 14,BA;"[B][O][O][M]" 249 IF QA=1 AND B=16 THEN LET A=1 250 IF (B<>BA OR B<>B+1) AND QA=0 THEN GOTO 144 255 GOTO 100 260 FOR J=H TO 18 261 PRINT AT J,B+3;"[H]" 262 NEXT J 265 PRINT AT 5,5;"[<][A][L][L][-][R][I][G][H][T][>]" 266 PAUSE 60 267 GOTO 9 1 SAVE "DRAGO[N]" 5 SLOW 10 LET S=1 20 LET C$="█********************█" 25 PRINT AT 3,5;"████████████████████" 30 FOR J=1 TO 15 40 PRINT AT J+3,4;C$ 50 NEXT J 55 PRINT AT 19,5;"█[L][E][V][E][L][=]█████████████";AT 20,8;"SCORE<>" 56 PRINT AT 18,26;"8 1 2";AT 19,26;"7 [D] 3";AT 20,26;"6 5 4";AT 21,1;"TYPE MOVE(1 TO 8)----->" 60 LET X=INT (RND*14)+5 70 LET Y=INT (RND*20)+5 80 LET A=INT (RND*14)+5 90 LET B=INT (RND*20)+5 91 PRINT AT A,B;"[D]";AT X,Y;"[H]" 92 IF X=A AND Y=B THEN GOTO 80 93 LET R=A 94 LET C=B 100 INPUT I 110 IF I=1 OR I=2 OR I=8 THEN LET A=A-1 120 IF I=3 OR I=2 OR I=4 THEN LET B=B+1 130 IF I=5 OR I=4 OR I=6 THEN LET A=A+1 140 IF I=7 OR I=8 OR I=6 THEN LET B=B-1 145 IF A>18 OR A<4 OR B>24 OR B<4 THEN GOTO 300 150 LET D=X 160 LET E=Y 180 IF XA THEN LET X=X-1 200 IF YB THEN LET Y=Y-1 220 PRINT AT R,C;"▗";AT D,E;"*";AT 20,15;S 230 LET S=S+1 234 IF A=X AND B=Y THEN GOTO 300 240 GOTO 91 300 IF S<20 THEN LET U$="[R][O][O][K][I][E]" 310 IF S>22 THEN LET U$="[A][V][E][R][A][G][E]" 320 IF S>28 THEN LET U$="[S][T][A][R]" 330 PRINT AT 19,12;U$ 340 PRINT AT 21,1;"AGAIN? 1(Y) OR 0(N)" 350 INPUT P 355 CLS 360 IF P THEN GOTO 5 1 SAVE "KWHAL[E]" 8 LET C=24 9 LET V=5 10 LET G=0 19 FAST 20 LET A=2 21 FOR I=0 TO 19 22 FOR J=1 TO 26 23 PRINT AT I,J;"[▒]" 24 NEXT J 25 NEXT I 26 SLOW 27 LET B=1 30 LET H=INT (RND*13)+9 40 LET K=INT (RND*10)+10 51 LET T=INT (RND*30)+20 60 PRINT AT 2,1;"[,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,][,,]";AT A,B;"▙██[.]";AT A+1,B;"▛[,,][,,][,,]" 61 IF G<1 THEN PRINT AT K,H;"["][~~]▞" 62 IF J<255 THEN PRINT AT K-V,C-1;"[O][=][<]" 65 LET Q=A 75 LET A=A+(INKEY$ ="6")-(INKEY$ ="7") 90 LET B=B+1 100 IF A>2 THEN LET T=T-1 110 IF T<21 THEN PRINT AT 2,14;"[R][I][S][E]" 113 IF T=15 OR T=8 THEN PRINT AT K,H;"[▒][▒][▒]" 115 IF T=15 THEN LET H=ABS (H-4) 116 IF (A+1=K-V OR A=K-V) AND B+4>=C AND C>B+2 THEN GOTO 400 120 IF (A=K-1 OR A=K) AND B+3=H THEN GOTO 200 130 IF T=0 THEN GOTO 300 140 PRINT AT Q,B-1;"[▒][▒][▒][▒]";AT Q+1,B-1;"[▒][▒][▒][▒]";AT K-V,C;"[▒][▒]" 149 IF C=2 THEN PRINT AT K-V,1;"[▒]" 150 IF T<21 AND A<2 THEN GOTO 50 151 IF C=2 THEN LET V=INT (RND*6) 155 IF C=2 THEN LET C=26 156 LET C=C-1 160 IF B=24 THEN LET B=1 170 GOTO 60 200 LET G=G+1 220 GOTO 401 300 PRINT "NO AIR" 310 STOP 400 LET J=255 401 PRINT AT A-2,C;"[C][H][O][M][P]" 402 PAUSE 80 403 PRINT AT A-2,C;"[▒][▒][▒][▒][▒]" 405 IF G=0 OR J<255 THEN GOTO 140 1 SAVE "MMAS[H]" 3 FAST 4 FOR I=0 TO 19 5 FOR J=1 TO 28 6 IF J=1 OR J=28 OR I=0 OR I=19 THEN PRINT "█"; 7 IF J<>1 AND J<>28 AND I<>0 AND I<>19 THEN PRINT "[▒]"; 8 NEXT J 9 PRINT 10 NEXT I 11 SLOW 12 PRINT AT 19,11;"[S][C][O][R][E][-]" 13 LET DD=1 14 LET S=0 15 LET A$="[*][~~][*]" 20 LET B$="▜["]▛" 25 PRINT AT 15,23;"[~~][~~][~~][~~]" 30 LET K=3 40 LET L=19 60 LET G=INT (RND*13)+3 70 LET H=2 80 IF K+1=G AND L+1=H THEN GOTO 30 90 PRINT AT G,H;"["]";AT G+1,H-1;"[,,]█[,,]";AT G+2,H-1;"▞[▒]▚";AT K,L;A$ 100 PRINT AT K+1,L;B$ 110 PRINT AT 19,17;S 120 IF K+1=G AND (L+1=H OR L+2=H) THEN GOTO 500 122 LET RE=K 124 LET DE=L 130 IF G>K+1 THEN LET K=K+1 140 IF L+1>H THEN LET L=L-1 150 IF K+1>G THEN LET K=K-1 160 IF H>L+1 THEN LET L=L+1 163 IF G=16 AND H=24 THEN GOTO 510 165 PRINT AT G,H;"[▒]";AT G+1,H-1;"[▒][▒][▒]";AT G+2,H-1;"[▒][▒][▒]" 166 PRINT AT RE,DE;"[▒][▒][▒][▒]";AT RE+1,DE;"[▒][▒][▒][▒]" 170 IF INKEY$ ="5" THEN LET H=H-DD 180 IF INKEY$ ="8" THEN LET H=H+DD 190 IF INKEY$ ="6" THEN LET G=G+DD 200 IF INKEY$ ="7" THEN LET G=G-DD 230 LET S=S+1 250 GOTO 90 500 PRINT AT K+1,L+1;"[U]" 510 PRINT AT 21,2;"RUN AGAIN [T][Y][P][E] 1 OR 0" 520 INPUT W 522 CLS 530 IF W THEN GOTO 2 10 REM 11UIINKEY$ RETURN- AND [)]RNDY MIINKEY$ UJINKEY$ CHR$ ASN [5]RND RETURN+ABS [5]RND#[A]RNDY-MJINKEY$ PRINT UJINKEY$ # LET UIINKEY$ █ RETURN- AND VAL RNDA I-UIINKEY$ #▞ GOSUB PI#MJINKEY$ GOSUB #£RND: COPY PRINT UIINKEY$ # LET A ▞ , RETURN#ASN TO RND<#STR$ RND£[B] FAST GOSUB PI LPRINT ASN GOTO RND<#USR RND▞ PRINT UJINKEY$ # LET VAL STR$ LPRINT 7# RETURN#TAB RUN RND FAST[B] GOSUB #F##CHR$ LPRINT TAB (INKEY$ FASTSGN #9INKEY$ XTAB /INKEY$ <#5INKEY$ ▞ "GOTO 30" 257 PRINT AT 3,7;"ALTITUDE=" 260 FOR J=1 TO 27 270 RAND USR 16516 280 PRINT AT C(J),30;"[*]" 290 NEXT J 300 PRINT AT A,1;"[=][>]" 302 RAND USR 16516 305 IF A=C(V) THEN LET S=S+1 306 LET V=V+1 308 PRINT AT C(V),30;"[*]" 310 LET A=A+(INKEY$ ="6" AND A<18)-(INKEY$ ="7" AND A>4) 311 LET T=T-20 312 PRINT AT 3,17;T;" " 313 IF T=0 THEN GOTO 400 316 IF V=28 THEN LET V=1 340 GOTO 300 400 PRINT AT 18,23;"SCORE=";S 401 PAUSE 80 402 CLS 403 GOTO 30 ```