[Zx81:Type-Ins] "Your Computer" campaign...

XavSnap · Post by **XavSnap** » Sat Nov 21, 2020 1:20 am

"Your computer" 06/82

"Art -Artful Dodge"

Contributor : Antipontifex.

10 LET X=28
20 LET Y=22 
30 LET R$="Q" 
40 IF INKEY$="Q" OR INKEY$="W" THEN LET R$=INKEY$ 
50 IF X>=60 THEN LET X=60 
60 IF Y>=40 THEN LET Y=40 
70 IF X<0 THEN LET X=0 
80 IF Y<=0 THEN LET Y=0 
90 LET X=X+(INKEY$="3")-(INKEY$="7") 
100 LET Y=Y-(INKEY$="5")-(INKEY$="1")
110 LET X=X+(INKEY$="4")-(INKEY$="8") 
120 LET Y=Y-(INKEY$="4")-(INKEY$="8") 
130 LET X=X+(INKEY$="2")-(INKEY$="6")
140 LET Y=Y+(INKEY$="2")-(INKEY$="6")
150 PLOT X,Y
160 UNPLOT X,Y
170 IF R$="Q" THEN PLOT X,Y 
180 GOTO 40

ART.P: (1.25 KiB) Downloaded 144 times

XavSnap · Post by **XavSnap** » Sat Nov 21, 2020 1:26 am

"Your computer" 07/82

"Zx81 Disassembler"
-Basic program-

Contributor : Xavsnap.

Code: Select all

 1 REM \
W00\
1BD\
18E\
280\
2J0\
3J0\
1JL\
+00\
XCC\
E9B\
168\
3B0\
2K0\
3K0\
1KL\
-00\
40S\
1AD\
17E\
2A0\
2H0\
3H0\
1HL\
*00\
J0S\
E9A\
1E7\
3A0\
2I0\
3I0\
1IL\
;00\
JNS\
19D\
1W9\
290\
2F0\
3F0\
1FL\
/00\
JOS\
E99\
19W\
390\
2G0\
3G0\
1GL\
Z00\
JPS\
1MD\
1WE\
2M0\
260\
360\
16L\
,00\
JQS\
E9M\
1EW\
3M0\
2E0\
3E0\
1EL\
.00\
1JJ\
1JK\
1JH\
1JI\
1JF\
1JG\
1J6\
1JE\
1KJ\
1KK\
1KH\
1KI\
1KF\
1KG\
1K6\
1KE\
1HJ\
1HK\
1HH\
1HI\
1HF\
1HG\
1H6\
1HE\
1IJ\
1IK\
1IH\
1II\
1IF\
1IG\
1I6\
1IE\
1FJ\
1FK\
1FH\
1FI\
1FF\
1FG\
1F6\
1FE\
1GJ\
1GK\
1GH\
1GI\
1GF\
1GG\
1G6\
1GE\
16J\
16K\
16H\
16I\
16F\
16G\
500\
16E\
1EJ\
1EK\
1EH\
1EI\
1EF\
1EG\
1E6\
1EE\
ELJ\
EEK\
EEH\
EEI\
EEF\
EEG\
EE6\
EEE\
REJ\
REK\
REH\
REI\
REF\
REG\
RE6\
REE\
PJ0\
PK0\
PH0\
PI0\
PF0\
PG0\
P60\
PE0\
SEJ\
SEK\
SEH\
SEI\
SEF\
SEG\
SE6\
SEE\
FJ0\
FK0\
FH0\
FI0\
FF0\
FG0\
F60\
FEO\
QJ0\
QK0\
QH0\
QI0\
QF0\
QG0\
Q60\
QE0\
KJ0\
KK0\
KH0\
KI0\
KF0\
KG0\
K60\
KE0\
HJ0\
HK0\
HH0\
HI0\
HF0\
HG0\
H60\
HE0\
NN0\
LB0\
IND\
I0D\
GND\
MB0\
EEL\
600\
N0O\
N00\
IOD\
020\
GOD\
G0D\
REL\
700\
NP0\
LA0\
IPD\
ULE\
GPD\
MA0\
P0L\
800\
NQ0\
V00\
IQD\
TEL\
GOD\
030\
OEL\
900\
NR0\
L90\
IRD\
XV9\
GRD\
M90\
FL0\
A00\
NX0\
I60\
IXD\
VA9\
GXD\
040\
QL0\
800\
NT0\
LC0\
ITD\
=00\
GTD\
MC0\
KL0\
C00\
NU0\
1M9\
IUD\
YO0\
GUD\
030\
HL0\
D00
2 REM \
RICA\
RRCA\
RIA \
DAA \
RRA \
SCF \
CCF \
 DI \
 LD \
INC \
DEC \
DJNZ\
HALT\
RST0\
RST8\
RS16\
RS24\
RS32\
RS40\
RS48\
RS56\
ADD \
AND \
CALL\
 CP \
 JP \
 JR \
 OR \
POP \
PUSH\
RET \
SBC \
SUB \
XOR \
ADC \
SBC \
 IN \
OUT \
EXX \
NOP \
 EX \
 EI \
CPL 
3 REM \
  \
  \
cb\
ix\
ed\
iy\
hl\
de\
bc\
HL\
DE\
BC\
AF\
NN\
 A\
 H\
 L\
 D\
 E\
 B\
 C\
 N\
SP\
NZ\
 Z\
NC\
 C\
PO\
DS\
 +\
 -\
sp\
nn\
PE
4 REM \
0343\
0522\
0532\
0543\
0702\
0782\
0862\
0942\
1022\
1102\
1122\
1132\
1142\
1152\
1162\
1172\
1192\
1262\
1342\
1422\
1502\
1582\
1662\
1742\
1822\
1902\
2033

 5 REM [HEX:\
3A,7B,40,2A,0C,40,06,20,23,77,\
10,FC,2A,0C,40,E5,11,D5,02,19,\
06,20,77,2B,10,FC,06,15,E1,E5,\
11,21,00,23,77,19,10,FC,06,15,\
E1,2B,19,77,10,FC,C9 ]
 
 6 LET G=17540 
 7 LET A=16514 
 8 LET N=17288
 9 LET P=17466
 10 LET C=28 
 11 LET D=C/C 
 12 LET E=D+D 
 13 FOR J=D-D TO A
 14 PRINT AT 7,D-D;CHR$ PEEK J;TAB 7;PEEK J;TAB 10;"\ :";J;TAB 16;"\: "; 
 15 LET I=A+3*PEEK J 
 16 LET K=PEEK I
 17 LET L=PEEK (I+D)
 18 LET M=PEEK (I+E)
 19 LET F=J
 20 IF L=C+E+D THEN GOTO 90 
 21 IF L=C+E+E THEN GOTO E*C-D
 22 IF L=C+E THEN GOTO 50
 24 LET I=N+((K-21)*E*E)
 25 PRINT CHR$ PEEK I;CHR$ PEEK (I+D);CHR$ PEEK (I+E);CHR$ PEEK (I+D+E);" ";
 26 IF L=49 THEN GOTO 42
 27 IF L=60 THEN GOTO C+C+C
 29 LET I=P+((L-C)*E) 
 30 GOSUB 80 
 31 IF M=49 THEN GOTO 63 
 32 IF M=41 THEN GOTO 67
 33 IF M=60 THEN GOTO 71
 34 IF M=C+C THEN GOTO G-P
 36 LET I=P+((M-C)*E) 
 37 GOSUB 80 
 38 PRINT 
 39 SCROLL 
 40 IF J>F THEN GOTO G+C-P 
 41 NEXT J 
 42 PRINT PEEK (J+D);" ";
 43 LET J=J+D 
 44 GOTO 36 
 46 PRINT "(";PEEK (J+D)+256*PEEK(J+E);") ";
 47 LET J=J+E 
 48 RETURN 
 50 LeT J=J+D
 51 GOTO C
 55 LET B=D  
 56 FOR I=D-D TO C+C STEP 8 
 57 IF PEEK (J+D)=67+I THEN LET B=D+E 
 58 NEXT I
 59 LET J=J+B
 60 GOTO C
 63 PRINT PEEK (J+D);
 64 LET J=J+D
 65 GOTO 38 
 67 PRINT PEEK (J+D)+256*PEEK J+E); 
 68 LET J=J+E
 69 GOTO 38 
 71 GOSUB 46 
 72 GOTO 38 
 74 IF PEEK (J+D)>128 THEN GOTO 77 
 75 PRINT PEEK (J+D); 
 76 GOTO 64 
 77 PRINT (PEEK (J+D))-256; 
 78 GOTO 64
 80 PRINT CHR$ PEEK I;CHR$ PEEK (I+D);" ";
 81 RETURN 
 84 GOSUB G-P-C 
 85 GOTO C+D+E
 86 LET B=D 
 91 FOR H=G TO G+108 STEP E+E 
 92 IF PEEK (J+D)=(((PEEK H)-C)*100+(PEEK (H+D)-C)*10+(PEEK (M+E)-C)) THEN LET B=PEEK (H+D+E)-C 
 93 NEXT H
 94 GOTO 59
 102 PRINT AT 7,D-D;CHR$ PEEK (F+D);TAB 7;PEEK (F+D);TAB 10;"\ :";F+D;TAB 16;"\: "
 103 LET F=F+D
 104 GOTO 39 
9998 SAVE "DISASSEMBLER" FROM DAVID HORNE \"YOUR COMPUTER\" 07/1982
9999 RUN

DISASSEMBLER.P: (3.43 KiB) Downloaded 125 times

XavSnap · Post by **XavSnap** » Sat Nov 21, 2020 2:47 am

"Your computer" 07/82

"Stadium"

Contributor : Xavsnap.

Code: Select all

1 REM STADIUM(INITIALISATION)
10 DIM D(4,3)
20 LET D(1,1)=320 
30 LET D(1,2)=20
40 LET D(1,3)=0.5 
50 LET D(2,1)=560 
60 LET D(2,2)=37 
70 LET D(2,3)=1
80 LET D(3,1)=800
90 LET D(3,2)=54
100 LET D(3,3)=1.2
110 LET D(4,1)=1040
120 LET D(4,2)=70
130 LET D(4,3)=1.5
140 DIM A$(256,2)
150 FOR I=1 TO 16
160 FOR J=1 TO 16
170 LET P=I*16+J-16
180 LET A$(P,1)=CHR$ I
190 LET A$(P,2)=CHR$ J
200 NEXT J
210 NEXT I
220 DIM N$(100,2)
230 FOR I=0 TO 9
240 FOR J=0 TO 9
250 LET P=I*10+J+1
260 LET N$(P,1)=CHR$ (I+25)
270 LET N$(P,2)=CHR$ (J+28)
280 NEXT J
290 NEXT I 
300 DIM C$(6,2,48) 
310 LET X$=""
320 LET X$=X$+"»»»»»»»»"
330 LET X$=X$+"»»¼¼½¾¿"+CHR$ 11
340 LET X$=X$+"£$:?(())" 
350 LET X$=X$+"))))))))" 
360 LET X$=X$+"))((?:$£"
370 LET X$=X$+CHR$ 11+"¿¾½¼¼»»"
380 LET C$(1,1)=X$ 
390 LET X$=""
400 LET X$=X$+"<>)(?:$£"
410 LET X$=X$+CHR$ 11+"¿¾½¼¼»»"
420 LET X$=X$+"»»¼¼½¾¿"+CHR$ 11
430 LET X$=X$+"£$:?()<>"
440 LET X$=X$+"=+-*//;;"
450 LET X$=X$+";;//*-+="
460 LET C$(1,2)=X$
470 LET X$=""
480 LET X$=X$+"ºººººººº"
490 LET X$=X$+"ºº»»½¾¿"+CHR$ 11
500 LET X$=X$+"£$:?))>>"
510 LET X$=X$+">>>>>>>>"
520 LET X$=X$+">>))?:$£"
530 LET X$=X$+CHR$ 11+"¿¾½»»ºº"
540 LET C$(2,1)=X$
550 LET X$=""
560 LET X$=X$+"<>)(?:$£"
570 LET X$=X$+CHR$ 11+"¿¾½»»ºº"
580 LET X$=X$+"ºº»»½¾¿"+CHR$ 11
590 LET X$=X$+"£$:?()><"
600 LET X$=X$+"=+-*;;,,"
610 LET X$=X$+",,;;*-+="
620 LET C$(2,2)=X$
630 LET X$=""
640 LET X$=X$+"¹¹¹¹¹¹¹¹"
650 LET X$=X$+"¹¹º»¼½¾"+CHR$ 11
660 LET X$=X$+"£:?()><<"
670 LET X$=X$+"<<<<<<<<"
680 LET X$=X$+"<<>)(?:£"
690 LET X$=X$+CHR$ 11+"¾½¼»º¹¹"
700 LET C$(3,1)=X$
710 LET X$=""
720 LET X$=X$+"<>)(?:$£"
730 LET X$=X$+CHR$ 11+"¾½¼»º¹¹"
740 LET X$=X$+"¹¹º»¼½¾"+CHR$ 11
750 LET X$=X$+"£$:?()>("
760 LET X$=X$+"=-*/;,.."
770 LET X$=X$+"..,;/*-="
780 LET C$(3,2)=X$
790 LET X$=""
800 LET X$=X$+"¸¸¸¸¸¸¸¸"
810 LET X$=X$+"¸¸¹º»½¾"+CHR$ 11
820 LET X$=X$+"£:?)><=="
830 LET X$=X$+"========"
840 LET X$=X$+"==<>)?:£"
850 LET X$=X$+CHR$ 11+"¾½»º¹¸¸"
860 LET C$(4,1)=X$
870 LET X$="" 
880 LET X$=X$+"<>)(?:$£"
890 LET X$=X$+CHR$ 11+"¾½»º¹¸¸"
900 LET X$=X$+"¸¸¹º»½¾"+CHR$ 11
910 LET X$=X$+"£$:?()><"
920 LET X$=X$+"=-*;,.00"
930 LET X$=X$+"00.,,*-="
940 LET C$(4,2)=X$
950 LET X$=""
960 LET X$=X$+"········"
970 LET X$=X$+"··¸¹º¼¾"+CHR$ 11
980 LET X$=X$+"£.(><=++"
990 LET X$=X$+"++++++++"
1000 LET X$=X$+"++=<>(:£"
1010 LET X$=X$+CHR$ 11+"¾¼º¹¸··"
1020 LET C$(5,1)=X$
1030 LET X$=""
1040 LET X$=X$+"<>)(?:$£"
1050 LET X$=X$+CHR$ 11+"¾¼º¹¸··"
1060 LET X$=X$+"··¸¹º¼¾"+CHR$ 11
1070 LET X$=X$+"£$:?()><"
1080 LET X$=X$+"=-/.011"
1090 LET X$=X$+"110.,/-="
1100 LET C$(5,2)=X$
1110 LET X$=""
1120 LET X$=X$+"¶¶¶¶¶¶¶¶"
1130 LET X$=X$+"¶¶·¸º¼½¿"
1140 LET X$=X$+"$?(>=+--"
1150 LET X$=X$+"--------"
1160 LET X$=X$+"--+=>(?$"
1170 LET X$=X$+"¿½¼º¸·¶¶"
1180 LET C$(6,1)=X$
1190 LET X$=""
1200 LET X$=X$+"<>)(?:$£"
1210 LET X$=X$+"¿½¼º¸·¶¶"
1220 LET X$=X$+"¶¶·¸º¼½¿"
1230 LET X$=X$+"£$.?()><"
1240 LET X$=X$+"+*/.0122"
1250 LET X$=X$+"2210,/*+"
1260 LET C$(6,2)=X$

Variables free Basic program:

Code: Select all

10 REM "STADIUM"
20 REM (C) SIMON LANE, 1982 
30 FAST
40 RAND
580 FOR I=1 TO 72
590 LET R=INT (RND*256+1) 
600 LET X$=A$(I)
610 LET A$(I)=A$(R)
620 LET A$(R)=X$
630 NEXT I 
640 LET PO=1 
1000 SLOW 
1010 PRINT TAB 10;"STADIUM"
1020 PRINT TAB 10;"¸¸¸¸¸¸¸"
1030 PRINT
1040 PRINT "DO YOU WANT INSTRUCTIONS (Y/N)?"
1050 INPUT R$
1060 IF R$="N" THEN GOTO 1190
1070 PRINT AT 3,0;"  STADIUM IS A SIMULATION OF A "
1080 PRINT "MEETING AT THE ÀZEDEXSTOWÀ"
1090 PRINT "GREYHOUND STADIUM. YOUR OBJECT"
1100 PRINT "IS TO WIN AS MUCH MONEY AS YOU"
1110 PRINT "CAN BY PLACING BETS ON EACH"
1120 PRINT "RACE. EITHER ONE OR TWO MAY PLAY"
1130 PRINT "AND YOU CAN HAVE UP TO TWELVE"
1140 PRINT "RACES. YOU START WITH £100 EACH,"
1145 PRINT "AND THE MINIMUM STAKE IS £1."
1150 PRINT "  N.B. ALL INPUTS TO THE"
1160 PRINT "COMPUTER MUST BE FOLLOWED BY"
1170 PRINT "ÀNEW LINEÀ."
1180 PRINT
1190 PRINT "HOW MANY PLAYERS   (1 OR 2)? ";
1200 INPUT PL
1210 IF PL>2 THEN GOTO 1200
1220 PRINT PL
1230 PRINT "HOW MANY RACES    (1 TO 12)? ";
1240 INPUT RA
1250 IF RA>12 THEN GOTO 1240
1260 PRINT RA
1261 PRINT "WHAT IS THE MONTH (1 TO 12)? ";
1262 INPUT MO
1263 IF MO>12 THEN GOTO 1262
1264 PRINT MO
1265 PRINT "AND THE DATE      (1 TO 3 )? ";
1266 INPUT DA
1267 IF DA>31 THEN GOTO 1266
1268 PRINT DA
1270 PRINT "DO YOU HAVE A PRINTER (Y/N)? ";
1272 INPUT P$
1274 PRINT P$
1279 IF R$="Y" THEN GOTO 1300
1280 PRINT "DO YOU WANT A LIST OF THE LEGAL"
1290 PRINT "COMMANDS (Y/N)?"
1292 INPUT R$
1295 IF R$="N" THEN GOTO 1310
1300 GOSUB 1500
1310 CLS
1320 DIM Z$(PL,16)
1330 FOR I=1 TO PL
1340 PRINT "PLAYER NUMBER ";I;" WHAT IS YOUR" 
1350 PRINT "NAME ? ";
1360 INPUT Z$(I)
1370 PRINT Z$(I)
1380 PRINT
1390 NEXT I
1400 PRINT "PLEASE WAIT."
1410 DIM D$(6,5)
1420 FOR I=1 TO 6
1425 LET D$(I)=N$(DA+1)+"/"+N$(MO+1)
1430 LET DA=DA-7
1440 IF DA>0 THEN GOTO 1480
1450 LET MO=MO-1
1460 IF MO=0 THEN LET MO=12
1470 LET DA=DA+31-3*(MO=2)-(MO=1) OR MO=4 OR MO=6 OR MO=9)
1480 NEXT I
1490 GOTO 2000
1500 CLS
1510 PRINT TAB 10;"COMMANDS"
1520 PRINT TAB 10;"¸¸¸¸¸¸¸¸"
1530 PRINT
1540 PRINT "CARD - THE RACECARD IS DISPLAYED"
1550 PRINT "       WHICH SMOUS THE TIMES FOR"
1560 PRINT "       EACH DOG OVER THE PAST"
1570 PRINT "       FIVE WEEKS."
1590 PRINT "ODDS - THE ODDS ARE DISPLAYED"
1600 PRINT "       FOR EACH OF THE THREE"
1610 PRINT "       POOLS, WIN, PLACE AND"
1620 PRINT "       FORCAST."
1640 PRINT "BLT  - YOU ARE ALLOWED TO PLACE"
1650 PRINT "       A SET ON ANY OF THE"
1660 PRINT "       THREE POOLS."
1670 PRINT "END  - YOU TERMINATE YOUR GO. IF"
1680 PRINT "       THERE ARE TWO PLAYERS THE"
1690 PRINT "       OTHER PLAYER HAS HIS GO,"
1700 PRINT "       THEN THE RACE STARTS."
1710 PRINT "HELP - THE COMMANDS ARE LISTED."
1720 PRINT
1730 IF P$="N" THEN GOTO 1780
1740 PRINT "DO YOU WANT A HARDCOPY (Y/N)? ";
1750 INPUT R$
1755 PRINT R$
1760 IF R$="N" THEN GOTO 1780
1770 COPY
1780 PRINT"type«Žnew“line"
1790 INPUT R$
1800 RETURN
2000 DIM M(PL)
2010 FOR I=1 TO PL
2020 LET M(I)=100
2030 NEXT I
2040 FOR R=1 TO RA
2045 FAST
2050 DIM H$(6,13)
2060 DIM T(6)
2070 LET DI=INT (RND*4+1)
2080 LET BE=1
2090 FOR I=1 TO 6
2100 LET A=CODE A$(PO,1)
2110 LET B=CODE A$(PO,2)
2120 LET I$=(\
"bobbys" AND A=1)+(\
"breeds" AND A=2)+(\
"janes" AND A=3)+(\
"fannys" AND A=4)+(\
"mummys" AND A=5)+(\
"harrys" AND A=6)+(\
"lucky" AND A=7)+(\
"super" AND A=8)+(\
"our" AND A=9)+(\
"cool" AND A=10)+(\
"first" AND A=11)+(\
"happy" AND A=12)+(\
"early" AND A=13)+(\
"bad" AND A=14)+(\
"sorry" AND A=15)+(\
"best" AND A=16)
2130 LET J$=(\
"boy" AND B=1)+(\
"gipl" AND B=2)+(\
"lass" AND B=3)+(\
"lad" AND B=4)+(\
"runner" AND B=5)+(\
"race" AND B=6)+(\
"hound" AND B=7)+(\
"winner" AND B=8)+(\
"looser" AND B=9)+(\
"chame" AND B=10)+(\
"choice" AND B=11)+(\
"dog" AND B=12)+(\
"chaf" AND B=13)+(\
"chance" AND B=14)+(\
"one" AND B=15)+(\
"hores" AND B=16)
2140 LET H$(I)=I$+"«"+J$
2145 LET PO=PO+1
2150 LET T(I)=D(DI,2)+(RND-RND)/2*D(DI,3)
2160 IF T(I)<T(BE) THEN LET BE=I 
2170 NEXT I
2180 DIM W(6)
2190 DIM S(6)
2195 LET T=0
2200 FOR I=1 TO 6
2210 LET W(I)=2**((T(BE)-T(I))/D(DI,3)*4)
2220 LET T=T+W(I)
2230 NEXT I
2240 FOR I=1 TO 6
2250 LET W(I)=W(I)/T
2260 NEXT I
2270 FOR I=1 TO 6
2280 FOR J=1 TO 6
2290 IF J=I THEN GOTO 2310
2300 LET S(I)=S(I)+W(I)/(1-W(J))*W(J)
2310 NEXT J
2320 NEXT I
2330 DIM T$(6,5,5)
2340 FOR I=1 TO 6
2350 FOR J=1 TO 5
2360 LET T=T(I)+(RND-RND)/2*D(DI,3)
2365 LET T=INT (T*100+.5)/100
2370 LET T$(I,J)=N$(INT T+I)+"."+N$((T-INT T)*100+1)
2380 NEXT J
2390 NEXT I
2500 DIM Y(6)
2510 DIM P(6)
2515 DIM O(6)
2520 LET YT=0
2530 LET PT=0
2540 FOR I=1 TO 6
2550 LET Y(I)=W(I)*(5+RND)/(5+RND)
2560 LET P(I)=(W(I)+S(I))/2*(5+RND)/(5+RND)
2570 LET YT=YT+Y(I)
2580 LET PT=PT+P(I)
2590 NEXT I
2600 FOR I=1 TO 6
2610 LET Y(I)=Y(I)/YT
2620 LET P(I)=P(I)/PT
2630 LET O(I)=INT (100/Y(I)+.5)/100
2640 NEXT I
2650 DIM F(6,6)
2655 LET T=0
2660 FOR I=1 TO 6
2670 FOR J=1 TO 6
2680 IF J=I THEN GOTO 2710
2690 LET F(I,J)=W(J)/(1-W(I))*W(I)*(5+RND)/(5+RND)
2700 LET T=T+F(I,J)
2710 NEXT J
2720 NEXT I
2730 FOR I=1 TO 6
2740 FOR J=1 TO 6
2745 IF J=I THEN GOTO 2760
2750 LET F(I,J)=INT (T/F(I,J)*100+.5)/100
2760 NEXT J
2770 NEXT I
2780 DIM B(PL,10,4)
2782 LET M$="RACE "+STR$ R+"  "+STR$ INT (R/4+7.51)+"."+N$((R+2-INT ((R+2)/4)*4)*15+1)+", "+D$(1)+"   "+STR$ D(DI,1)+"M"
2785 CLS
2790 SLOW
2800 FOR P=1 TO PL
2810 CLS 
2815 GOSUB 2820
2817 GOTO 2840
2820 PRINT "  ";M$
2830 PRINT "  ";"¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸"(1 TO LEN M$)
2835 RETURN
2840 PRINT ,,,,,,"PLAYER ";P;", ";Z$(P)
2860 PRINT ,,,,,,"  commandŠ"
2870 INPUT R$
2880 GOTO 2890+(30 AND R$="HELP")+(50 AND R$="ODDS")+(410 AND R$="CARD")+(550 AND R$="BET")+(1110 AND R$="END")
2890 PRINT ,,"À";R$;"À IS NOT A LEGAL COMMAND."
2900 GOTO 2870
2920 GOSUB 1500
2930 GOTO 2810
2940 CLS
2950 GOSUB 2820
2960 PRINT ,,,,"WHICH ODDS:"
2970 PRINT ,,"  WP  - WIN AND PLACE"
2980 PRINT "  F   - FORECAST"
2990 PRINT "  RET - RETURN TO COMMAND MODE"
3000 INPUT R$
3010 IF R$="RET" THEN GOTO 2810
3020 IF R$="WP" THEN GOTO 3050
3030 IF R$="F" THEN GOTO 3170
3040 GOTO 3000
3050 CLS
3060 GOSUB 2820
3070 PRINT ,,TAB 5;"WIN";TAB 25; "PLACE"
3080 PRINT TAB 5;"¸¸¸";TAB 25;"¸¸¸¸¸"
3090 PRINT "    0/0 PER £1.00";TAB 28:"0/0"
3100 PRINT
3110 FOR I=1 TO 6
3120 PRINT "123456"(I);": ";N$(Y(I)*100+1);"   $";N$(INT O(I)+1);".";N$ ((O(I)-INT O(I))*100+1);TAB 25;"123456"(I);": ";N$(P(I)*100+1)
3130 NEXT I
3140 PRINT ,,"type«Žnew«line"
3150 INPUT R$
3160 GOTO 2940
3170 CLS
3180 GOSUB 2820
3190 PRINT ,,TAB 10;"FORECAST"
3200 PRINT   TAB 10;"¸¸¸¸¸¸¸¸"
3210 FOR I=1 TO 6
3220 FOR J=1 TO 6
3230 IF J=I THEN GOTO 3250
3240 PRINT "123456"(I);":";"1234\
56"(J);" £";" 123456789"(INT (F(\
I,J)/100)+1);N$(INT F(I,J)-INT (\
F(I,J)/100)*100+1);".";N$((F(I,J\
)-INT F(I,J))*100+1),
3250 NEXT J
3260 NEXT I
3270 PRINT ,,"type«Žnew“line" 
3280 INPUT R$
3290 GOTO 2940
3300 CLS
3301 IF P$="N" THEN GOTO 3310
3302 PRINT "DO YOU WANT A HAROCOPY?"
3303 INPUT V$
3304 CLS
3310 PRINT M$
3320 FOR I=1 TO 5 STEP 2
3330 PRINT "--------------------------------"
3340 PRINT"˜ š œ"(I);"«";H$(I);"  ";"™ › "(I);;"«";H$(I+1)
3350 FOR J=1 TO 5
3360 PRINT D$(J+1);" ",T$(I,J);" SEC  ";D$(J+1);" ";T$(I+1,J);" SEC"
3370 NEXT J
3380 NEXT I
3385 IF V$="Y" THEN COPY
3390 POKE 16418,0
3400 PRINT ,,"type«Žnew“line"
3410 POKE 15418,2
3420 IF INKEY$=CHR$ 118 THEN GOTO 2810
3430 GOTO 3420
3440 CLS
3445 GOSUB 2820
3449 GOSUB 3451
3450 GOTO 3457
3451 LET X$=STR$ (M(P)+.001)
3452 LET X$=X$(1 TO LEN X$-1)
3453 IF X$(1)="." THEN LET X$="0"+X$
3454 PRINT ,,"YOU HAVE £";X$;"."
3455 RETURN
3457 IF M(P)>=I THEN GOTO 3465
3458 PRINT ,,"YOU CAN NOT BET."
3459 PAUSE 50
3460 GOTO 2810
3465 PRINT ,,,,"WHICH POOL:"
3470 PRINT   ,,"W   - WIN POOL"
3480 PRINT     "P   - PLACE POOL"
3490 PRINT     "F   - FORECAST POOL"
3500 PRINT     "RET - RETURN TO COMMAND MODE"
3510 INPUT R$
3520 IF R$="W" THEN GOTO 3570
3530 IF R$="P" THEN GOTO 3600
3540 IF R$="F" THEN GOTO 3710
3550 IF R$="RET" THEN GOTO 2810
3560 GOTO 3510
3570 PRINT ,,"WIN POOL."
3580 LET B=1
3590 GOTO 3620
3600 PRINT ,,"PLACE POOL."
3610 LET B=2
3620 PRINT ,,"WHICH DOG (1 TO 6)? ";
3636 INPUT D1
3640 IF D1>6 THEN GOTO 3630
3645 PRINT D1
3650 LET D2=0
3660 PRINT ,,"WHAT STAKE (IN WHOLE £/5)? ";
3670 INPUT P1
3680 IF P1>M(P) OR P1<>INT P1 THEN GOTO 3670
3690 PRINT P1
3695 LET M(P)=M(P)-P1
3700 GOTO 3820
3710 PRINT ,,"FORECAST POOL."
3720 LET B=3
3730 PRINT ,,"WHICH DOG FIRST (1 TO 6)? ";
3740 INPUT D1
3750 IF D1>6 THEN GOTO 3740
3760 PRINT D1
3770 PRINT ,,"WHICH DOG SECOND (1 TO 6)? ";
3780 INPUT D2
3790 IF D2>6 THEN GOTO 3780
3800 PRINT D2
3810 GOTO 3660
3820 FOR I=1 TO 10 
3830 IF B(P,I,1)=0 THEN GOTO 3850
3840 NEXT I
3850 LET B(P,I,1)=B
3860 LET B(P,I,2)=D1
3870 LET B(P,I,3)=D2
3880 LET B(P,I,4)=P1
3881 IF P$="N" THEN GOTO 3890
3882 LPRINT "********************************"
3883 LPRINT "*";TAB 31;"*"
3884 LPRINT "* ";M$;TAB 31;"*"
3885 LPRINT "*";TAB 31;"*"
3886 LPRINT "* ";"WIN" AND B(P,I\
,1)=1;"PLACE" AND B(P,I,1)=2;"FO\
RECAST" AND B(P,I,1)=3;" ";"1234\
56"(B(P,I,2));" AND "+" 123456"(\
B(P,I,3)+1) AND B(P,I,1)=3;", £"\
;B(P,I,4);TAB 31;"*"
3887 LPRINT "*";TAB 31;"*"
3888 LPRINT "*********************************",,,,,,,,
3890 CLS
3900 PRINT "YOUR BETS SO FAR:"
3910 PRINT
3920 FOR I=1 TO I
3930 PRINT "WIN" AND B(P,I,1)=1;"PLACE" AND B(P,I,1)=2;"FORECAST" AND B(P,I,1)=3;" ";"123456"(B(P,I,2));" AND "+" 123456"(B(P,I,3)+1) AND B(P,I,1)=3;", £";B(P,I,4) 
3940 NEXT I
3950 PRINT
3960 PRINT "type«Žnew“line"
3970 INPUT A$
3980 GOTO 3440
4000 NEXT P
4010 CLS
4020 POKE 16418,0
4030 PRINT TAB 8;"®»¸¸¸¸¸¸¸¸¸¸¸¸±®"
4040 PRINT TAB 6;"»¸";TAB 24;"¸±"
4050 PRINT TAB 4;"²¸";TAB 26;"¸¹"
4060 PRINT "   ²¶";TAB 27;"·¹"
4070 PRINT "  ²¶";TAB 28;"·¹"
4080 PRINT "  º";TAB 29;"°"
4090 PRINT " »";TAB 30;"±"
4100 PRINT " º";TAB 10;"²®®®®®®®®®®¹";TAB 30;"°"
4110 PRINT "°";TAB 9 ;"»¶";TAB 21;"·±";TAB 31;"º"
4120 PRINT "»";TAB 8;"»";TAB 23;"±";TAB 31;"±"
4130 PRINT "º";TAB 7 ;"²¶";TAB 23;"·¹";TAB 31;"°"
4140 PRINT "º";TAB 7;"°";TAB 24;"º";TAB 31;"°"
4150 PRINT "º";TAB 7;"°";TAB 24;"º";TAB 31;"°"
4160 PRINT "º";TAB 7;"·¹";TAB 23;"²¶";TAB 31;"°"
4170 PRINT "±";TAB 8;"±";TAB 19;"w   »";TAB 31;"»"
4180 PRINT "°";TAB 9;"±¹";TAB 19;"‰ ®»";TAB 31;"º"
4190 PRINT " º";TAB 10;"·¸¸¸¸¸¸¸¸¸¸¶";TAB 30;"°"
4200 PRINT " ±";TAB 30;"»"
4210 PRINT "  º";TAB 29;"°"
4220 PRINT "  ·¹";TAB 28;"²¶"
4230 PRINT "   ·¹";TAB 27;"²¶"
4240 PRINT TAB 4;"·®";TAB 26;"®¶"
4250 PRINT TAB 6;"±®";TAB 24;"®»"
4260 PRINT TAB 8;"¸±®®®®®®®®®®®®»¸"
4270 LET ST=1+(24 AND (D(DI,1)=560 OR D(DI,1)=1040))
4280 FOR I=1 TO 6
4290 LET Y(I)=ST
4295 PRINT AT CODE C$(I,1,ST),CODE C$(I,2,ST);"˜™š›œ"(I)
4300 NEXT I
4310 FOR I=2 TO 6
4320 LET W(I)=W(I)+W(I-1)
4330 LET S(I)=S(I)+S(I-1)
4340 NEXT I
4350 LET RA=RND
4360 FOR I=1 TO 6
4370 IF RA>W(I) THEN NEXT I
4380 LET WI=1
4390 LET RA=RND
4400 FOR I=1 TO 6
4410 IF RA>S(I) THEN NEXT I 
4420 LET SE=I 
4430 IF SE=WI THEN GOTO 4390
4440 LET TI=INT (D(DI,2)/2.25+.5)
4450 LET T(WI)=TI*4-D(DI,1)/10+1
4460 LET T(SE)=T(WI)+INT (1+2*RND)
4470 FOR I=1 TO 6 
4480 IF I=WI OR I=SE THEN GOTO 4500
4490 LET T(I)=T(SE)+INT (RND*2+1)
4500 NEXT I
4505 FAST
4510 FOR T=TI TO -1 STEP -1
4520 FOR I=1 TO 6
4530 PRINT AT CODE C$(I,1,Y(I)),CODE C$(I,2,Y(I));" "
4540 IF RND>=T(I)=/(T-1E-5) THEN GOTO 4570
4550 LET T(I)=T(I)-1
4555 LET Y(I)=Y(I)+3-(48 AND Y(I)>=46)
4560 GOTO 4580
4570 LET Y(I)=Y(I)+4-(48 AND Y(I)>=45)
4580 PRINT AT CODE C$(I,1,Y(I)),CODE C$(I,2,Y(I));"˜™š›œ"(I)
4590 NEXT I
4592 PAUSE 75
4595 POKE 16437,255
4600 NEXT T
4610 SLOW
4620 POKE 16418,2
4630 LET W1=INT ((O(WI)-1)*(10+RND)/(10+RND)*100+100.5)/100
4640 LET P=1-P(WI)-P(SE)
4650 LET P1=INT ((1/(P/2+P(WI))-1)*(10+RND)/(10+RND)*100+100.5)/100
4660 LET P2=INT ((1/(P/2+P(SE))- 1)*(10+RND)/(10+RND,*100+100.5)/100
4670 LET F1=INT ((F(WI,SE)-1)*(10+RND)/(10+RND)*100+.5)/100
4680 CLS
4690 GOSUB 2820 
4700 PRINT ,,"FIRST:  TRAP ";WI;"  ";H$(WI)
4710 PRINT "SECOND: TRAP ";SE;", ";M$(SE)
4720 PRINT ,,,,"WIN POOL    PLACE POOL  FORECAST"
4730 LET X$=STR$ (W1+.001)
4740 PRINT ,,WI;": £";X$(1 TO LEN X$-1);TAB 12;
4750 LET X$=STR$ (P1+.001)
4760 PRINT WI;": £";X$(1 TO LEN X$-1);TAB 24;
4770 PRINT WI;" AND ";SE;":"
4780 LET X$=STR$ (P2+.001)
4790 PRINT TAB 12;SE;": £";X$(1 TO LEN X$-1);TAB 24;
4800 LET X$=STR$ (F1+.001)
4810 PRINT "£";X$(1 TO LEN X$-1)
4820 PRINT ,,,,,,"type«Žnew“line"
4830 INPUT R$
4835 CLS
4840 FOR I=1 TO PL
4845 LET P=I
4850 FOR J=1 TO 10 
4860 IF B(I,J,1)=0 THEN GOTO 4910 
4870 IF B(I,J,1)=1 AND B(I,J,2)=WI THEN LET M(I)=M(I)+W1*B(I,J,4)
4880 IF B(I,J,1)=2 AND B(I,J,2)=WI THEN LET M(I)=M(I)+P1*B(I,J,4)
4890 IF B(I,J,1)=2 AND B(I,J,2)=SE THEN LET M(I)=M(I)+P2*B(I,J,4)
4900 IF B(I,J,1)=3 AND B(I,J,2)=WI AND B(I,J,3)=SE THEN LET M(I)=M(I)+F1*B(I,J,4)
4905 NEXT J
4907 LET M(I)=INT (M(I)*100+.5)/100
4910 PRINT "PLAYER ";I;",";Z$(I)
4920 GOSUB 3451
4930 PRINT
4940 NEXT I
4950 PRINT "type«Žnew“line"
4960 INPUT R$
4970 NEXT R
4980 CLS
4990 PRINT "THE END..."
4995 STOP
5000 DIM D(4,3)
5140 DIM A$(256,2)
5150 FOR I=1 TO 16
5160 FOR J=1 TO 16
5170 LET P=I*16+J-16
5220 DIM N$(100,2)
5300 DIM C$(6,2,48)
5310 LET X$="<>)(?:$£"+"¿½¼º¸·¶¶"+"¶¶·¸º¼½¿"+"£$.?()><"+"+*/.0122"+"2210,/*+"
9000 SAVE "STADIUM"
9010 GOTO 0

Initialized variables program:

STADIUM.P: (15.49 KiB) Downloaded 149 times

XavSnap · Post by **XavSnap** » Sat Nov 21, 2020 6:06 am

"Your computer" 09/82

"B52 Bomb-Run"

Contributor : Willinliv .

viewtopic.php?p=39904#p39904

Code: Select all

     0  REM [HEX:\
80,96,92,21,21,A9,01,00,\
07,CD,F5,08,11,C0,01,3E,\
80,D7,1B,7A,B3,20,F8,06,\
20,3E,8A,D7,10,FD,ED,5B,\
33,40,2A,32,40,19,22,32,\
40,7C,E6,07,C6,0D,47,C5,\
CD,F5,08,3A,32,40,E6,07,\
C6,04,D7,C1,78,FE,14,28,\
03,04,18,EB,79,FE,1F,28,\
03,0C,18,D2,01,00,08,C5,\
CD,F5,08,11,82,40,01,06,\
00,CD,6B,0B,2A,10,40,11,\
21,00,2B,E5,7E,FE,A9,20,\
0E,23,7E,FE,76,28,FA,FE,\
80,28,29,E1,C3,8D,41,FE,\
92,20,1E,36,80,23,7E,FE,\
76,28,FA,FE,8A,28,12,19,\
7E,FE,80,28,0A,FE,8A,28,\
08,36,80,19,7E,18,F6,36,\
92,E1,18,C6,E1,06,04,0B,\
78,B1,20,FB,3A,3E,40,3C,\
32,3E,40,CB,47,20,AD,3A,\
3C,40,3D,28,36,3A,25,40,\
3C,28,30,19,7E,FE,80,28,\
0A,FE,8A,28,08,36,80,19,\
7E,18,F6,36,92,21,86,40,\
7E,FE,1C,20,05,36,25,2B,\
18,F6,3D,77,FE,1C,20,0B,\
2B,7E,FE,1C,20,05,3E,01,\
32,3C,40,C1,0C,79,FE,1A,\
20,07,78,FE,14,28,1F,18,\
07,FE,20,20,03,0E,00,04,\
79,E6,01,C6,96,32,83,40,\
C3,D1,40,C1,CD,F5,08,06,\
06,3E,97,D7,10,FD,3E,21,\
32,85,40,32,86,40,C9,15,\
1C,7E,00,00,00,00,00 ]

     1 RAND USR 16520

B52_BombRun_09_82.P: (1.2 KiB) Downloaded 138 times

XavSnap · Post by **XavSnap** » Sat Nov 21, 2020 6:40 am

"Your computer" 10/82

"Code Storage"

Contributor : Xavsnap.

Code: Select all

9992 POKE 16405,PEEK 16405+4
9994 SAVE "PGM" 
9996 POKE 16405,PEEK 16405-4
9998 GOTO 10

10 REM "PGM"
20 PRINT PEEK 16404+256*PEEK 16405
30 PRINT 18100;",";PEEK 18200 
40 PRINT A(50);",";A(100)
50 STOP
9992 POKE 16405,PEEK 16405+4
9994 SAVE "PGM"
9996 POKE 16405,PEEK 16405-4
9998 GOTO 10

No 'p' file available.

XavSnap · Post by **XavSnap** » Sat Nov 21, 2020 7:05 am

"Your computer" 10/82

"Column scroll"

Contributor : Xavsnap.

Code: Select all

 1 REM  [DEC:\
42,12,64,1,16,0,3,9,229,235,225,\
1,33,0,9,62,0,1,16,0,237,176,60,\
254,22,40,11,1,17,0,229,235,9,\
235,225,9,24,235,201 ]
 10 FOR N=0 TO 21
 20 FOR I=0 TO 31
 30 PRINT AT N,I;CHR$ (N+38)
 40 NEXT I
 50 NEXT N
 60 LET Z=USR 16514
 70 PRINT AT 21,16+INT (RND*16); "*"
 80 GOTO 60

COLUMN.P: (1.13 KiB) Downloaded 122 times

XavSnap · Post by **XavSnap** » Sun Nov 22, 2020 5:46 am

"Your computer" 08/83

"ZxGT Compiler"

https://archive.org/details/your-comput ... 5/mode/2up

july 1983:
https://archive.org/details/your-comput ... ew=theater

August 1983:
https://archive.org/details/your-comput ... 5/mode/2up

September 1983:
https://archive.org/details/your-comput ... 7/mode/2up

Contributor : Xavsnap.

Code: Select all

0 REM [HEX :\
BF,BD,AC,B9,76,76,C3,B4,40,C3,\
23,41,C3,57,41,C3,4F,41,C3,85,\
41,C3,97,41,C3,AB,41,C3,21,42,\
C3,9C,42,C3,DE,42,C3,39,43,C3,\
7A,43,C3,57,43,C3,B8,43,CF,8C,\
E5,D5,AF,CD,21,42,CB,7C,28,08,\
3E,16,CD,21,42,CD,1B,41,11,10,\
27,CD,07,41,30,1A,11,E8,03,CD,\
07,41,30,15,11,64,00,CD,07,41,\
30,13,1E,0A,CD,07,41,30,12,C3,\
FC,40,CD,0D,41,11,E8,03,CD,0D,\
41,11,64,00,CD,0D,41,1E,0A,CD,\
0D,41,1E,01,CD,0D,41,AF,D1,E1,\
C3,21,42,E5,A7,ED,52,E1,C9,3E,\
1C,A7,ED,52,38,03,3C,18,F9,19,\
C3,21,42,7C,2F,67,7D,2F,6F,23,\
C9,2A,0C,40,11,21,00,E5,01,00,\
00,09,23,E5,19,EB,21,D6,02,ED,\
42,E3,C1,EB,ED,B0,E1,01,B6,02,\
09,22,0E,40,3E,21,32,39,40,3E,\
03,32,3A,40,C9,CD,BB,02,7C,FE,\
FE,20,0E,CD,BB,02,24,20,FA,CD,\
BB,02,7D,FE,FF,28,F8,01,7F,FD,\
AF,E5,ED,42,E1,CA,B2,40,01,EF,\
FC,AF,E5,ED,42,E1,28,DD,44,24,\
C8,4D,CD,BD,07,7E,FE,00,C9,CB,\
FC,22,34,40,2A,34,40,7C,E6,7F,\
B5,C8,CD,4F,41,28,F3,06,10,4A,\
7B,EB,21,00,00,CB,39,1F,30,01,\
19,EB,29,EB,10,F5,C9,3E,2B,90,\
DA,DC,42,47,3E,01,CB,28,30,02,\
3E,04,CB,29,30,02,CB,07,F5,CD,\
EB,41,7E,CB,07,FE,10,30,07,CB,\
0F,30,02,EE,8F,47,11,9E,0C,3A,\
30,40,93,FA,E1,41,F1,2F,A0,18,\
02,F1,B0,FE,08,38,02,EE,8F,18,\
36,3E,17,90,DA,DC,42,79,E6,1F,\
4F,C5,C5,C5,AF,CB,10,CB,10,CB,\
10,68,67,29,29,C1,48,47,09,C1,\
47,09,ED,4B,0C,40,09,23,22,0E,\
40,C1,3E,18,90,32,3A,40,3E,21,\
91,32,39,40,C9,D5,E5,C5,F5,3A,\
3A,40,FE,02,28,3A,F1,FE,76,28,\
2A,FE,40,30,72,2A,0E,40,77,23,\
22,0E,40,3A,39,40,3D,32,39,40,\
7E,FE,76,20,4A,3A,3A,40,3D,32,\
3A,40,23,22,0E,40,3E,21,32,39,\
40,18,38,2A,0E,40,7E,FE,76,28,\
E6,23,18,F8,2A,0C,40,01,F8,02,\
09,36,8F,CD,4F,41,28,FB,FE,28,\
28,15,FE,3F,28,1B,FE,29,20,08,\
21,10,27,2B,7D,B4,20,FB,CD,23,\
41,18,03,CD,2A,0A,F1,18,9A,C1,\
E1,D1,C9,CD,69,08,18,D3,78,B1,\
C8,1A,CD,21,42,13,0B,18,F5,FE,\
43,38,09,FE,C0,CB,B7,DA,35,42,\
E6,3F,21,11,01,47,04,FE,21,30,\
04,AF,CD,21,42,CB,7E,23,28,FB,\
10,F9,7E,CB,7F,20,06,CD,21,42,\
23,18,F5,E6,3F,CD,21,42,AF,C3,\
2D,42,CF,8A,7B,B2,28,FA,CD,29,\
43,C5,7C,B2,07,38,F1,4B,42,11,\
00,00,D5,EB,23,29,EB,29,79,95,\
78,9C,EB,30,F6,EB,EB,AF,7C,1F,\
67,7D,1F,6F,B4,28,18,EB,AF,CB,\
1C,CB,1D,79,95,78,9C,FA,FE,42,\
79,95,4F,78,9C,47,E3,19,E3,18,\
DD,E1,C1,CB,78,C2,1B,41,C9,44,\
7C,17,DC,1B,41,EB,7C,A8,47,CB,\
7C,C2,1B,41,C9,ED,5B,32,40,63,\
2E,FD,7A,B7,06,00,ED,52,98,ED,\
52,98,5F,50,ED,52,30,01,23,22,\
32,40,CB,BC,C9,03,03,03,C5,03,\
03,03,03,21,80,49,CD,A3,09,23,\
3E,76,71,23,36,02,23,C1,71,23,\
70,23,36,EA,23,77,23,77,23,C9,\
21,00,00,E5,E5,CD,57,41,FE,16,\
20,09,E1,D1,F5,E5,CD,21,42,18,\
F0,FE,76,E1,28,1F,29,E5,29,29,\
D1,19,4F,CD,21,42,79,D6,1C,38,\
08,4F,06,00,09,FE,0A,38,D3,F1,\
3E,E6,CD,21,42,18,C7,F1,CC,1B,\
41,C9,C5,E5,2A,7B,40,F5,77,E5,\
23,22,7B,40,CD,4F,41,FE,29,20,\
12,3E,76,CD,21,42,E1,CD,B4,40,\
F1,26,00,6F,CD,B4,40,18,02,E1,\
F1,E1,C1,AF,C9,C9,C9,3E,0F,D7,\
CD,75,49,18,12,21,00,00,CD,12,\
44,CD,F7,48,03,CD,78,49,E5,CD,\
06,49,E1,CD,12,44,CD,59,49,CD,\
20,44,CD,0D,44,CF,7F,3E,C9,C3,\
7B,49,22,70,40,ED,5B,1C,40,13,\
21,72,40,CD,09,45,2A,70,40,36,\
18,23,36,68,23,22,79,40,11,68,\
00,19,22,7B,40,21,7D,40,CD,D4,\
44,23,23,E5,23,22,16,40,CD,44,\
45,FE,F2,CC,CB,44,FE,F9,CC,96,\
48,FE,FA,CC,C8,48,FE,DE,28,EA,\
FE,E9,CC,1D,49,FE,EC,CC,2B,45,\
FE,ED,CC,40,45,FE,EB,CC,C7,47,\
FE,F3,CC,F4,47,FE,E4,CC,00,49,\
FE,F4,CC,B6,47,FE,E5,CC,F1,48,\
FE,EE,CC,5D,48,FE,F6,CC,6C,48,\
FE,FC,CC,92,48,FE,F1,CC,03,46,\
FE,FB,CC,9F,47,FE,E3,CA,96,47,\
FE,F5,CC,55,45,FE,EA,28,15,FE,\
E7,CC,A4,47,FE,FE,CC,0D,44,FE,\
00,20,0E,CD,44,45,FE,76,20,07,\
E1,CD,0E,49,C2,36,44,3E,B8,CD,\
68,49,CD,59,49,CF,9B,CD,4D,47,\
21,5F,49,C3,A9,47,E5,56,23,5E,\
D5,EB,E5,22,23,40,22,0A,40,CD,\
EC,45,CD,53,49,E1,CD,13,45,1B,\
1B,EB,D1,CD,09,45,ED,5B,7B,40,\
CD,09,45,E5,ED,5B,72,40,A7,ED,\
52,E1,38,03,22,72,40,E1,C9,73,\
23,72,23,C9,5E,23,56,23,C9,E5,\
C1,2A,1C,40,23,CD,0E,45,EB,A7,\
ED,42,D0,2A,72,40,ED,52,D8,EB,\
23,18,ED,3E,C3,F5,CD,44,45,CD,\
2A,48,CD,13,45,EB,CD,0E,45,EB,\
F1,C3,AB,47,3E,CD,18,E9,E5,E7,\
FE,76,28,09,FE,7E,28,05,F5,CD,\
68,49,F1,E1,C9,CD,44,45,FE,76,\
28,77,FE,0B,28,13,FE,C1,28,4C,\
FE,D6,28,74,CD,50,47,21,53,49,\
CD,A9,47,18,4F,3E,18,CD,78,49,\
2A,7B,40,E5,CD,7B,49,01,FF,FF,\
2A,16,40,23,03,7E,F5,CD,68,49,\
F1,FE,0B,28,05,CD,7B,49,18,EF,\
22,16,40,E1,C5,71,23,3E,11,CD,\
AB,47,3E,01,E1,CD,AB,47,21,6B,\
49,CD,A9,47,18,12,CD,37,47,CD,\
C1,47,21,43,4D,CD,AE,47,21,F5,\
08,CD,A9,47,CD,44,45,FE,1A,28,\
8C,FE,19,28,88,21,EC,45,CD,A9,\
47,2A,16,40,2B,22,16,40,AF,C9,\
CD,4D,47,3E,7D,CD,7B,49,21,68,\
49,CD,A9,47,18,D6,3E,76,C3,68,\
49,FE,40,D2,C1,44,D6,26,17,17,\
ED,4B,79,40,26,00,6F,09,C9,CD,\
44,45,CD,F1,45,FE,64,20,0A,CD,\
2A,49,3E,E5,CD,7B,49,26,FF,E5,\
CD,44,45,FE,14,C2,C1,44,CD,3D,\
46,CD,D3,45,E1,7C,FE,FF,20,0C,\
21,D1,EB,CD,AE,47,21,09,45,C3,\
A9,47,3E,22,C3,AB,47,AF,F5,CD,\
4D,47,3E,E5,CD,7B,49,CD,44,45,\
FE,11,28,50,FE,76,28,4C,F5,CD,\
4D,47,F1,FE,15,28,04,FE,16,20,\
23,C1,67,78,FE,00,20,04,F5,E5,\
18,D8,E5,21,44,4D,CD,AE,47,CD,\
7E,46,3E,E5,21,69,60,CD,AB,47,\
18,C4,F5,C5,18,1C,FE,18,28,10,\
FE,17,C2,C1,44,CD,C6,46,21,62,\
49,CD,A9,47,18,AC,CD,C6,46,21,\
6E,49,18,F3,3E,E1,CD,7B,49,F1,\
FE,00,C8,FE,15,28,11,CD,C6,46,\
21,A7,EB,CD,AE,47,21,ED,52,CD,\
AE,47,18,E7,CD,C6,46,3E,19,CD,\
7B,49,18,DD,3E,D1,C3,7B,49,FE,\
D3,20,0F,CD,4D,47,21,7E,6F,CD,\
AE,47,21,26,00,C3,AE,47,FE,D4,\
20,12,CD,4D,47,21,EB,46,C3,A9,\
47,01,F1,46,C5,E5,C9,60,69,C9,\
FE,C4,C2,0F,47,CD,44,45,FE,41,\
C2,C1,44,21,5C,49,CD,A9,47,3E,\
26,21,00,6F,C3,AB,47,FE,40,C2,\
1A,47,21,72,49,C3,A9,47,FE,D2,\
20,11,CD,4D,47,21,CB,7C,CD,AE,\
47,3E,C4,21,7A,47,C3,AB,47,FE,\
CF,C2,C1,44,C3,4D,47,CD,4D,47,\
CD,44,45,F5,3E,E5,CD,7B,49,CD,\
4D,47,3E,D1,CD,7B,49,F1,C9,CD,\
44,45,FE,16,F5,CC,44,45,FE,10,\
28,16,FE,40,30,0D,FE,26,D4,82,\
47,DC,8F,47,F1,CC,75,47,C9,CD,\
CB,46,18,F6,CD,3D,46,18,F1,21,\
7A,47,18,2F,7C,2F,67,7D,2F,6F,\
23,C9,CD,F1,45,FE,64,CA,3F,49,\
3E,2A,C3,AB,47,CD,2A,48,3E,21,\
18,15,CD,0D,44,E1,ED,4B,7B,40,\
C9,21,2A,0A,18,05,21,56,49,18,\
00,3E,CD,CD,7B,49,7D,CD,7B,49,\
7C,C3,7B,49,CD,37,47,CD,C1,47,\
21,EB,73,18,ED,FE,1A,C2,C1,44,\
C9,CD,44,45,CD,F1,45,E5,E5,CD,\
44,45,CD,37,47,3E,23,CD,7B,49,\
21,ED,53,CD,AE,47,E1,CD,AE,47,\
3E,22,23,23,CD,AB,47,E1,ED,5B,\
7B,40,CD,09,45,C9,CD,44,45,CD,\
F1,45,E5,E5,3E,2A,CD,AB,47,21,\
23,22,CD,AE,47,E1,CD,AE,47,23,\
23,3E,ED,CD,7B,49,3E,5B,CD,AB,\
47,3E,A7,21,ED,52,CD,AB,47,3E,\
FA,E1,CD,0E,45,EB,CD,AB,47,C9,\
21,00,00,18,0F,CD,44,45,FE,7E,\
28,1A,F5,11,0A,00,CD,62,49,F1,\
FE,26,D2,C1,44,FE,1C,DA,C1,44,\
D6,1C,06,00,4F,09,18,DF,E5,2A,\
16,40,11,05,00,19,22,16,40,E1,\
C9,21,75,49,CD,A9,47,CD,44,45,\
CD,F1,45,C3,38,46,3E,9B,F5,CD,\
37,47,CD,C1,47,21,4B,45,CD,AE,\
47,3E,3E,CD,7B,49,F1,CD,7B,49,\
3E,32,21,30,40,CD,AB,47,21,65,\
49,C3,A9,47,3E,A0,18,D8,3E,2A,\
21,34,40,CD,AB,47,3E,22,21,32,\
40,C3,AA,47,FE,DD,28,12,FE,14,\
28,14,1F,30,01,EB,17,A7,ED,52,\
37,F8,17,D0,18,08,ED,52,37,C0,\
18,04,ED,52,37,C8,3F,C9,CD,37,\
47,67,2E,3E,CD,AE,47,21,A6,48,\
CD,A9,47,2A,0A,40,23,CD,13,45,\
EB,CD,0E,45,EB,3E,D2,CD,AB,47,\
CD,44,45,FE,DE,C2,C1,44,C9,21,\
F7,48,C3,A9,47,CD,E7,02,21,3B,\
40,CB,B6,C9,21,06,49,C3,A9,47,\
21,3B,40,CB,F6,C3,07,02,4E,23,\
46,09,23,3A,0C,40,9D,C0,3A,0D,\
40,9C,C9,CD,44,45,FE,3F,C2,C1,\
44,CD,4D,47,AF,C9,CD,4D,47,21,\
ED,4B,CD,AE,47,21,1C,40,CD,AE,\
47,21,29,09,C3,AE,47,CD,2A,49,\
3E,D5,CD,7B,49,21,0E,45,CD,A9,\
47,21,EB,D1,C3,AE,47,C3,88,40,\
C3,8B,40,C3,8E,40,C3,91,40,C3,\
94,40,C3,97,40,C3,9A,40,C3,9D,\
40,C3,A0,40,EB,C3,A3,40,C3,A6,\
40,C3,A9,40,C3,AC,40,C3,AF,40,\
AF,40 ]
2  REM [HEX :\
C9,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,\
00,00,00,00 ]
9990 REM RAND USR 17389
9998 SAVE"ZXGT"
9999 LIST 9990

ZXGT.P: (4.2 KiB) Downloaded 140 times

[edit: Alias Mcoder 1 > viewtopic.php?p=14844#p14844 ]

XavSnap · Post by **XavSnap** » Sun Nov 22, 2020 6:25 am

"Your computer" 05/82

"Joystick Control"

https://archive.org/details/your-comput ... 5/mode/2up

Contributor : Xavsnap.

Code: Select all

1 REM [DEC: 205,187,2,68,77,201 ]
2 REM PROGRAM TO DRAW PICTURES WITH THE AID OF JOYSTICKS
10 INPUT X
20 INPUT Y
30 LET Z=0
40 PLOT X,Y
50 UNPLOT X,Y 
60 IF Z=1 THEN GOTO 80 
70 PLOT X,Y
80 LET A$=INKEY$ 
90 IF A$="Q" THEN LET Z=0 
100 IF A$="W" THEN LET Z=1 
110 LET Q=USR 16514
120 IF Q=A THEN LET Y=Y+1 
130 IF Q=E THEN LET Y=Y-1
140 IF Q=C THEN LET X=X+1 
150 IF Q=G THEN LET X=X-1
160 IF Q=B THEN LET X=X+1 
170 IF Q=B THEN LET Y=Y+1
180 IF Q=D THEN LET X=X+1 
190 IF Q=D THEN LET Y=Y-1
200 IF Q=F THEN LET X=X-1 
210 IF Q=F THEN LET Y=Y-1 
220 IF Q=H THEN LET X=X-1 
230 IF Q=H THEN LET Y=Y+1
240 GOTO  40 
9900 SAVE "JOYSTICK"
9901 LIST 9990
9990 REM LET: A = north VALUE 
9991 REM B = north-east VALUE 
9992 REM C = east VALUE 
9993 REM D = south-east VALUE 
9994 REM E = south VALUE 
9995 REM F = south-west VALUE 
9996 REM G = west VALUE 
9997 REM H = north-west VALUE

JOYSTICK.P: (1.61 KiB) Downloaded 127 times

XavSnap · Post by **XavSnap** » Sun Nov 22, 2020 9:47 am

"Your computer" 01/82

"Write Fast-Moving Graphics on Your ZX81"
Example: Simple breakout.

Contributor : Xavsnap.

Code: Select all

 0 REM [HEX: \
3E,3D,06,00,0E,00,\
26,00,69,CB,25,CB,25,CB,25,CB,\
25,CB,25,CB,14,59,16,00,19,58,\
19,ED,5B,0C,40,19,11,01,00,19,\
56,77,C9,7E,FE,00,20,04,3C,3C,\
18,02,3D,3D,77,C9,21,82,40,CD,\
A9,40,18,74,21,83,40,CD,A9,40,\
C9,79,FE,00,C8,0D,C9,79,FE,0D,\
C8,0C,C9,06,01,3E,00,21,84,40,\
4E,CD,88,40,0D,CD,88,40,0D,CD,\
88,40,21,85,40,7E,FE,1D,CC,C5,\
40,FE,1C,CC,CB,40,3E,85,CD,88,\
40,0C,CD,88,40,0C,CD,88,40,79,\
32,84,40,21,7B,40,4E,23,46,78,\
FE,00,C8,3E,00,CD,88,40,11,7B,\
40,21,82,40,7E,81,3D,4F,12,23,\
13,7E,80,3D,47,12,3E,34,CD,88,\
40,79,FE,01,28,88,FE,0E,28,84,\
78,FE,1C,28,87,FE,00,28,1C,7A,\
FE,85,CA,BE,40,FE,08,28,07,FE,\
BD,C0,1E,05,18,02,1E,01,21,86,\
40,7E,83,77,C3,BE,40,21,87,40,\
34,3E,02,32,83,40,3E,00,CD,88,\
40,C9,\
3E,80,06,1D,0E,0F,CD,88,40,0D,\
20,FA,0E,00,CD,88,40,0E,0F,CD,\
88,40,05,20,F3,06,15,0E,0E,3E,\
BD,CD,88,40,0D,20,FA,05,78,FE,\
12,20,F0,0E,0E,3E,08,CD,88,40,\
0D,20,FA,05,78,FE,0F,20,F0,21,\
86,40,36,00,23,36,00,C9 ]
300 CLS 
302 POKE 16516,8
305 REM PRINT BOARD 
310 LET A = USR 16742
320 PRINT AT 17,0;"SCORE      BALL" 
322 PRINT AT 19,0;"KEYS 1/0 MOVE BAT" 
324 PRINT AT 20,0;"NEWLINE DELIVERS BALL" 
325 REM RANDOM LINE NUMBER 2-13 
330 POKE 16507, INT (RND*12)+2 
340 POKE 16515,2
345 REM RANDOM DORN. 0 OR 2
350 POKE 16514, INT (RND*2)*2
360 POKE 16517,CODE INKEY$ 
370 IF CODE INKEY$=118 THEN GOTO 420
400 LET A=USR 16593 
410 GOTO 360
420 IF PEEK 16518 = 252 THEN GOTO 300 
430 POKE 16508,2 
440 LET A = USR 16593 
450 POKE 16517,CODE INKEY$ 
460 IF PEEK 16508=0 THEN GOTO 510 
470 IF PEEK 16518 > 100 THEN GOTO 440 
480 IF PEEK 16518 > 50 THEN GOTO 440 
490 IF PEEK 16518 > 20 THEN GOTO 440 
500 GOTO 440
510 PRINT AT 17,6;PEEK 16518
520 PRINT AT 17,16;PEEK 16519 
530 GOTO 330
900 PRINT "START LOCATION" 
910 INPUT A 
920 FOR N=A TO 16850
930 INPUT B
940 IF B>255 THEN STOP 
950 PRINT AT 18,0;N;" ";B
960 SCROLL
970 POKE N,B 
980 NEXT N
9990 STOP

FASTMOVE.P: (2.12 KiB) Downloaded 131 times

XavSnap · Post by **XavSnap** » Sun Nov 22, 2020 10:04 am

"Your computer" 04/82

"Brahma"

Contributor : Antipontifex.

Code: Select all

1 REM BRAHMA 
10 DIM A(3,5) 
11 FOR B=1 TO 5 
12 LET A(1,B)=B 
13 NEXT B 
14 GOTO 160 
20 PRINT "FROM" 
21 INPUT C
50 FOR B=1 TO 5 
60 IF A(C,B)<>0 THEN GOTO 80 
70 NEXT B 
75 GOTO 20 
80 PRINT "TO" 
81 INPUT D
82 IF C=D THEN GOTO 20
90 FOR E=1 TO 5 
100 IF A(D,E)=0 THEN NEXT E
125 IF E=6 THEN GOTO 190
130 IF A(C,B)>A(D,E) THEN GOTO 190
140 LET A(D,E)=A(C,B) 
150 CLS 
155 LET A(C,B)=0 
160 FOR F=1 TO 5 
170 PRINT "    ";A(1,F);"    ";A(2,F);"     ";A(3,F) 
180 GOTO 20 
190 LET A(D,5)=A(C,B)
200 GOTO 150

Code: Select all

1 REM BRAHMA
5 LET N=5
10 DIM A (3,N) 
11 FOR B=1 TO N 
12 LET A(1,B)=B 
13 NEXT B 
14 GOTO 160 
20 PRINT "FROM" 
21 INPUT C
50 FOR B=1 TO N 
60 IF A(C,B)<>0 THEN GOTO 80 
70 NEXT B 
75 GOTO 20 
80 PRINT "TO" 
81 INPUT D
82 IF C=D THEN GOTO 20
90 FOR E=1 TO N 
100 IF A(D,E)=0 THEN NEXT E
125 IF E=N+1 THEN GOTO 190
130 IF A(C,B)>A(D,E) THEN GOTO 190
140 LET A(D,E)=A(C,B) 
150 CLS 
155 LET A(C,B)=0 
160 FOR F=1 TO N 
170 PRINT "    ";A(1,F);"    ";A(2,F);"     ";A(3,F) 
180 GOTO 20 
190 LET A (D,N)=A(C,B)
200 GOTO 150

BRAHMA.P: (1.4 KiB) Downloaded 114 times

BRAHMA2.P: (1.38 KiB) Downloaded 127 times

Sinclair ZX80 / ZX81 / Z88 Forums

[Zx81:Type-Ins] "Your Computer" campaign...

Re: [Type-Ins] "Your Computer" campaign...

Re: [Type-Ins] "Your Computer" campaign...

Re: [Type-Ins] "Your Computer" campaign...

Re: [Type-Ins] "Your Computer" campaign...

Re: [Type-Ins] "Your Computer" campaign...

Re: [Type-Ins] "Your Computer" campaign...

Re: [Type-Ins] "Your Computer" campaign...

Re: [Type-Ins] "Your Computer" campaign...

Re: [Type-Ins] "Your Computer" campaign...

Re: [Type-Ins] "Your Computer" campaign...