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: 474
Joined: Wed Apr 22, 2009 10:22 am

Dropout 1K BASIC listing

Post by Shaun_B »

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 273 times
Last edited by Shaun_B on Mon Jan 13, 2020 9:17 pm, edited 1 time in total.
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: Dropout 1K BASIC listing

Post by XavSnap »

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
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Shaun_B
Posts: 474
Joined: Wed Apr 22, 2009 10:22 am

Re: Dropout 1K BASIC listing

Post by Shaun_B »

Thanks for the text listing XavSnap :-)

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

Regards,

Shaun
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: Dropout 1K BASIC listing

Post by XavSnap »

: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…
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Post Reply