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: 469
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 8 times
Last edited by Shaun_B on Mon Jan 13, 2020 9:17 pm, edited 1 time in total.

User avatar
XavSnap
Posts: 807
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: 469
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: 807
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