Dropout 1K BASIC listing

Anything Sinclair ZX Basic related; history, development, tips - differences between BASIC on the ZX80 and ZX81
Post Reply
Shaun_B
Posts: 470
Joined: Wed Apr 22, 2009 10:22 am

Dropout 1K BASIC listing

Post by Shaun_B » Mon Jan 13, 2020 1:39 pm

Here's Dropout to type in:
Dropout 1K
Dropout 1K
Use 1 to move left and 4 to move right.

Happy typing!

Edit: I've added a slightly improved edition of the game for the unexpanded ZX81 which doesn't "flicker" the catcher when you play.
Attachments
Dropout.p
Dropout 1K
(459 Bytes) Downloaded 20 times
Last edited by Shaun_B on Mon Jan 13, 2020 9:17 pm, edited 1 time in total.

User avatar
XavSnap
Posts: 821
Joined: Sat May 10, 2008 4:23 pm

Re: Dropout 1K BASIC listing

Post by XavSnap » Mon Jan 13, 2020 5:02 pm

Xur Text file:

Code: Select all

1 LET P=NOT PI 
2 LET E=VAL "11"
3 LET T=P 
4 FOR Z=SGN PI TO CODE "¿" 
5 PRINT AT CODE "£",USR VAL "2602";T 
6 LET R=INT (RND*CODE ")") 
7 FOR Y=NOT PI TO CODE "¿" 
8 PRINT AT Y,R;"O" 
9 LET N=P+(INKEY$="4")-(INKEY$="1") 
10 IF NOT N OR N>CODE "?" THEN LET N=P 
11 PRINT AT E,P;"  ";AT E,N;"ª¬";AT Y,R;" " 
12 LET P=N 
13 NEXT Y 
14 LET T=T+(P=R OR P+VAL"1"=R) 
15 NEXT Z 
16 PRINT AT CODE "£",NOT P;"YOU SCORED ";T;"/10" 
17 GOTO CODE ")"+(INKEY$<>"") 
18 RUN 
20 REM DROPOUT BY ALASTAIR GOURLAY c 1982 INTERFRCE PUBLISHING REFACTORED BY donkeysoft

Shaun_B
Posts: 470
Joined: Wed Apr 22, 2009 10:22 am

Re: Dropout 1K BASIC listing

Post by Shaun_B » Mon Jan 13, 2020 5:36 pm

Thanks for the text listing XavSnap :-)

Out of interest, how do I use "Xur" text files?

Regards,

Shaun

User avatar
XavSnap
Posts: 821
Joined: Sat May 10, 2008 4:23 pm

Re: Dropout 1K BASIC listing

Post by XavSnap » Tue Jan 14, 2020 2:54 am

:shock:

I don't know !

No, seriously it's self-promotion for the emulator "Vb81 XuR"... and his text file loader. (some free advertising …)

"ZxToken" can be used too…

Post Reply