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

Discussion about ZX80 / ZX81 Software
Post Reply
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

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

Post by XavSnap »

Hi,

This tread will be fill and update

"Your Computer" type-in campaign:
Contributors :
- XavSnap (Fr) from the Hebdogiciel/Abandon-listings team.
- Antipontifex (Ca) from the Hebdogiciel/Abandon-listings team.
- Willinliv .
- Fruitcake.
- dessony.
- mrtinb.

And the zx81.nl archive web site.

- Forum's readers.


. (drop you text/P file in this tread)

Thanks to share or archive them on your web site...

Listings not converted in "P" file… (#xxx# reserved by xxx…in progress. & little chars are typed)
Next up !
Alien Search R Lawrence, S Haigh Jan'82 62 81 G B 8201
Animals - Intelligent Animal CA Wilson Sep'83 151 81 D B 8309
Art -Artful Dodge P Marco Jun'82 76 81 U B 8206
As You Like It Roy Kay Jul'82 82 81 8207
Borderline Case D Clancy Jul'82 91 81 8207
Brahma Paul Blythe Apr'82 77 81 G B 8204
Bubble Sort Andy Scott Dec'83 183 81 U D 8312
[MZ-80 BASIC] Chess -Chess End Game Philip Joy Dec'81 33 80 G B 8112
Clue to Clues Simon A Rapley Jul'82 91 81 8207
Code Machine, The Kenneth Hart Jan'83 119 P 81 U B Y 8301
Code Storage DL Clay Oct'82 91 81 U B 8210
Code Transfer Nick Goodwin Jun'82 67 81 U D 8206
Column Scroll John Hirst Oct'82 93 81 U B 8210
Course and Time Chester Watson Jul'82 85 81 D 8207
Cricket Score M Fox Jan'82 63 81 U B 8201
Cypher Breaker GL Billington Jun'82 75 81 D B 8206
Danger Man Mark Carne Jul'83 153 81 G B 8307
Datacalc Brian Law Feb'84 130 81 D B 8402
Death Worm KR Littlefield Sep'83 159 81 G D 8309
Drawing Program Christopher Stops Jun'83 165 81 U C 8306
Filing Point SA Nicholls Sep'82 95 81 D 8209
Forth Simulation RC Ranson Dec'82 84 81 U 8212
Four x Four x Four Barrie Walmsley, Mark Walmsley Aug'83 167 81 G B 8308
High Res Graph Julian Stradling Oct'82 87 81 U B 8210
How to Impress with Your ZX81 C Chambers May'82 37 81 U 8205
Jump, Push, Pop and Run Kathleen Peel Sep'82 72 81 U 8209
[NO LISTING] Keyboard Changes D Butler Jan'82 61 80 U B 8201
Kong Jump Graham Fitter Jun'83 170 81 G B 8306
Lower-case Letters Brian Cadge Sep'82 94 81 U 8209
Machine Code tips WE Thompson Dec'81 71 81 U C 8112
Magic Squares Rod Hyde May'82 40 81 G B 8205
Matrix Mover KJ Gouldstone Jun'83 187 81 D B 8306
Memory Man TR Carey May'83 176 81 U 8305
Merge Richard Taylor Nov'83 169 81 U C 8311
Moon lander C Butler Jan'82 63 81 G B 8201
[ZxSpectrum] More Character Colin Ridley Oct'82 94 81 U B 8210
Moving Graphics Loll Holt Nov'81 69 81 U B 8111
Mystery Program CE Lowe Apr'82 72 81 U B 8204
Nim David Lawrence Apr'82 48 81 G B 8204
Ohm's Law -Developing Software for Easy Learning Eric Deeson Jan'82 35 81 E B 8201

Oxo - Memory Economy SA Nicholls Jan'82 63 81 G B 8201
Pascal Triangle MR Tolun Jun'82 69 81 U B 8206
Plotter-Planner Paul Newman Jul'82 81 81 U 8207
Quick Load Richard Taylor Jun'83 75 81 U C 8306
REM Memory Andrew Norman Sep'82 97 81 U 8209
Renumber James Tyler Nov'81 67 81 U D 8111
Renumber -Writing Wrongs David Lawrence Jan'82 65 81 U B 8201

Rotating Display Alan Knowler Oct'83 179 81 U D 8310
Saved Andy Scott May'83 65 81 U 8305
Screen Flash RM Taylor Oct'82 95 81 U C 8210
Scroll Rolls Per Nielsen Jul'82 90 81 U 8207
Security Numbers AD Robinson Dec'81 71 81 U D 8112
Sequence - Winning Sequence John Lewis May'82 81 81 G B 8205
Sid Worm Simon Collinson Apr'85 133 81 G B 8504
Small Enterprise Philip Pulsford Oct'82 83 81 G B 8210
Snakes and Ladders Brian Horsfield Mar'82 37 81 G B 8203
Sorting on the ZX81 David Lawrence Apr'82 37 81 U B 8204
Sound Analysis Predrag Bogdanovic May'83 165 81 U 8305
Sound Box J Chalmers Dec'81 73 81 U D 8112
Space Invaders Chris Mortimer Jul'83 84 81 G C 8307
Speed and Screen Richard Taylor Jul'83 139 81 U C 8307
St. George P Watson May'82 76 81 G B 8205
Stadium Simon Lane Jul'82 40 81 G 8207
Standard Deviations L Cooper Oct'82 85 81 U B 8210
Storage Technique John Eade Jan'82 69 81 U B 8201
Surrounded Paul Beadle Jul'82 89 81 G 8207
Swap Peter Havlykke Jul'83 161 81 U C 8307
Undercut R Vanhove Oct'82 95 81 G B 8210
Wordy AF Whiddett Oct'82 52 81 D B 8210
Write Fast-Moving Graphics on Your ZX81 Martin Buckeley Jan'82 48 81 U 8201
ZX Assault - Assault Craft CJ Young Jun'82 69 81 G B 8206
ZX81 Disassembler David Horne Jul'82 56 81 U 8207
ZX81 Editor Trevor Hill Mar'83 75 81 U D 8303
ZX81 Indexer John Watson Sep'82 68 81 D 8209
ZX81 Read B Sheard Jan'84 133 81 U D 8401
ZX81 Under Joystick Control David Griffin May'82 46 81 U 8205
ZXGT David Threlfall Jul-Sep'83 77 81 U C 8307-09
ZXMinbug John Sylvester Jun'82 50 81 U C 8206
ZXtra-wide Text Philip Barnard Jan'83 88 81 U 8301

US/EN:
Big K Big K
Computer & Video Games
Home Computing Weekly
Micro Adventurer
Personal Computer Games
Personal Computer News
Popular Computing Weekly
Sinclair Programs
Sinclair Projects
Sinclair User Sinclair User
Sync Sync
Syntax ZX80
Your Computer
ZX Computing
Odds & Ends
http://www.users.globalnet.co.uk/~jg27p ... pehome.htm
Contributions to the webmaster [jg27paw4].

Fr:
Hebdogiciel
http://www.hebdogiciel.free.fr/
Contributions to XavSnap.
Micro-Mag
Micro7
MicroVO
TILT
Ordi-5
Sciences&Vie
Ordinateur Individuel
TeleSoft
Micro-Systèmes
Echo-Sinclair
http://abandonlistings.free.fr
Contributions to XavSnap.


All text are designed to work on Vb81, in ascii texts who can be directly launch in this emulator.
However, graphics characters can be display in the note-pad using the special TTF font enclosed in VB81.
Zx81_Fonts.zip
(122.98 KiB) Downloaded 199 times

zx_fonts.JPG
Last edited by XavSnap on Wed Aug 10, 2022 12:41 am, edited 96 times in total.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Type-Ins] Links...

Post by XavSnap »

"Your computer" 12/81

Listings:
https://archive.org/details/your-computer-magazine


"Machine Code tips"

Code: Select all

1 REM [DEC: \
33,124,64,17,0,0,35,237,75,12,64,\
167,237,66,200,9,6,10,19,16,253,114,\
35,115,35,78,35,70,9,24,231]
500 REM RENUM THIS PROGRAM
1000 LET A=16514
1006 CLS
1007 RAND USR A
1008 LIST
RENUM.P
(1011 Bytes) Downloaded 207 times
Last edited by XavSnap on Wed Nov 11, 2020 12:06 am, edited 1 time in total.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Type-Ins] Links...

Post by XavSnap »

"Your computer" 12/81
"ARK Royal"

Code: Select all

10 LET S=0
20 LET PY=INT(RND*15)+1
30 FOR Q=1 TO 20
40 FOR A=0 TO 28 STEP 2
100 CLS
110 PRINT AT 18,S+4;"I";AT 19,S;"¹  ®«";AT 20,0;"--------------------------------"
120 PRINT AT 20,S;"¸¸¸¸¸¸¸"
130 LET S=S+1
140 IF S=27 THEN LET S=0
150 PRINT AT PY,A;"ª®µ®";AT PY+1,A+2;"O"
200 IF PY+1=19 AND A+3=S THEN GOTO 420
210 IF PY=18 AND A=S THEN GOTO 400
220 IF PY>=19 THEN GOTO 420
300 IF INKEY$="6" THEN LET PY=PY+1
310 IF INKEY$="7" THEN LET PY=PY-1
320 NEXT A
330 NEXT Q
340 STOP
400 PRINT AT 0,1;"LANDED",Q;" ATTEMPTS"
410 STOP
420 PRINT AT 0,1;"CRASHED"
430 STOP
ARKROYAL.P
(1.47 KiB) Downloaded 231 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Type-Ins] Links...

Post by XavSnap »

"Your computer" 4/82
"Adventure", Adventure Basic motor, Empty strings (S$,O$ & P$).

Code: Select all

1 REM YOUR COMPUTER. APRIL 1982
10 DIM S$(5000) 
20 DIM O$(31)
30 DIM P$(101)
40 LET S$(1 TO 2)=" "
50 LET F=3
55 LET S=0 
60 LET W1=S 
65 LET W2=S 
70 CLS 
75 PRINT "F IS ";F 
80 PRINT "WHAT NEXT?"
90 PRINT "PLACES,OBJECTS,WORDS,GO,SAVE"
100 INPUT Z$
110 IF Z$="PLACES" THEN GOSUB 5000
120 IF Z$="OBJECTS" THEN GOSUB 4500
130 IF Z$="WORDS" THEN GOSUB 4000
140 IF Z$="GO" THEN GOTO 500
145 IF Z$="SAVE" THEN GOSUB 2340
150 GOTO 70 
500 PRINT "WHAT IS THE STARTING PLACE NO." 
510 INPUT P 
520 GOSUB 5800
530 GOSUB 6700
1000 INPUT Z$
1010 SCROLL
1020 PRINT Z$
1030 LET X$=" "
1040 LET Y$=" "
1050 IF Z$="" OR Z$=" " THEN GOTO 1000
1060 LET I=1
1065 LET Z=LEN Z$ 
1070 GOSUB 1400
1080 LET X$=Z$(1 TO K-1)
1090 LET I=K
1100 IF I>Z THEN GOTO 1200
1110 IF Z$(I)<>" " THEN GOTO 1140
1120 LET I=I+1
1130 GOTO 1100
1140 GOSUB 1400
1150 LET Y$=Z$(1 TO K-1)
1200 GOSUB 1500
1210 IF L>0 THEN GOSUB L
1220 GOTO 1000
1400 LET K=I
1410 IF Z$(K)=" " THEN RETURN
1420 LET K=K+1
1430 IF K<=Z THEN GOTO 1410
1440 RETURN
1500 LET I=W1
1510 LET J=LEN X$
1520 LET L=CODE S$(I+4)
1530 IF L<>J THEN GOTO 1550
1540 IF S$(I+5 TO I+4+L) =X$ THEN GOTO 1600
1550 IF J<4 OR L<4 THEN GOTO 1570
1560 IF S$(I+5 TO I+8)=X$(1 TO 4) THEN GOTO 1600
1570 LET I=256+CODE S$(I) + CODE S$(I+1)
1580 IF I=0 THEN GOTO 1710
1590 GOTO 1520
1600 LET L=256+CODE S$(I+2) + CODE S$(I+3)
1700 RETURN
1710 LET L=0
1720 LET I=INT (5*RND+1) 
1730 SCROLL
1740 GOTO 1740+2*I
1742 PRINT "WHAT?"
1743 RETURN
1744 PRINT "SORRY, I DONÀT UNDERSTAND THAT"
1745 RETURN
1746 PRINT "TRY ANOTHER WORD"
1747 RETURN
1748 PRINT "EH?"
1749 RETURN
1750 PRINT "WHAT DO YOU MEAN?"
1751 RETURN
1999 REM MOVE N,S,E,W,U,D
2000 LET I=4
2010 GOTO 2110
2020 LET I=5
2030 GOTO 2110
2040 LET I=6
2050 GOTO 2110
2060 LET I=7
2070 GOTO 2110
2080 LET I=8
2090 GOTO 2110
2100 LET I=9
2110 LET I=CODE S$(IP+I)
2120 SCROLL
2130 IF I=0 THEN GOTO 2230
2135 REM INTERCEPT A
2140 LET P=I
2150 GOSUB 5800
2160 LET A$=CHR$ (CODE (S$(IP+2))+1)
2170 LET S$(IP+2)=A$
2180 IF A$=" " THEN GOTO 2210
2185 LET S=S-CODE S$(IP+3)
2190 GOSUB 6800
2200 REM INT. B1
2205 RETURN
2210 GOSUB 6690
2215 RETURN
2220 REM INT. B2
2230 PRINT "SORRY, YOU CANÀT GO THAT WAY"
2240 RETURN
2300 SCROLL
2310 PRINT "OK. USE CONT TO RESTART"
2320 STOP
2330 GOTO 6700
2340 LET X$="INIT"
2350 SCROLL
2360 PRINT "SETUP THE TAPE; TYPE NAME TO USE"
2370 SCROLL
2380 PRINT "START TAPE; TYPE NEWLINE" 
2390 INPUT A$
2400 SAVE A$
2410 CLS
2420 IF X$<>"INIT" THEN GOTO 6700
2430 RETURN
2500 SCROLL
2510 PRINT "ALL I CAN DO TO HELP IS REPRINT"
2520 SCROLL
2530 PRINT "THE DESCRIPTION OF THIS PLACE."
2540 GOTO 6700
2800 IF V$<>" " THEN GOTO 2840
2810 SCROLL
2820 PRINT "GET WHAT?"
2830 RETURN
2840 GOSUB 6520
2850 IF O>0 THEN GOTO 2890
2860 SCROLL
2870 PRINT "I SEE NO ";Y$
2880 RETURN
2890 REM INT. C
2895 GOSUB 6030
2900 IF R=0 THEN GOTO 2860
2904 IF P=1 THEN LET S=S-CODE S$(10)
2910 SCROLL
2920 PRINT "OK"
2930 RETURN
3000 IF Y$<>" " THEN GOTO 3040
3010 SCROLL
3020 PRINT "DROP WHAT?"
3030 RETURN
3040 GOSUB 6500
3050 IF O>0 THEN GOTO 3090
3060 SCROLL
3070 PRINT "YOU HAVE NO ";Y$
3080 RETURN
3090 REM INT. D
3095 GOSUB 6000
3100 IF R=0 THEN GOTO 3060
3110 IF P=1 THEN LET S=S+CODE S$(10)
3120 GOTO 2910
3200 SCROLL
3210 PRINT S
3220 RETURN
3300 LET O=CODE S$(2)
3310 SCROLL
3320 IF O>0 THEN GOTO 3350
3330 PRINT "YOU ARENÀT CARRYING ANYTHING"
3340 RETURN
3350 PRINT "YOU HAVE :"
3360 GOTO 6950
4000 CLS 
4005 FOR I=1 TO 10 
4010 PRINT "WORD?";
4020 INPUT A$
4025 PRINT A$
4030 IF A$="99" THEN RETURN
4040 IF A$="" THEN GOTO 4020
4050 IF W1=0 THEN LET W1=F
4060 IF W2=0 THEN GOTO 4090 
4070 LET A=INT (F/256)
4080 LET S$(W2 TO W2+1)=CHR$ A+CHR$ (F-256*A)
4090 LET S$(F TO F+1)=" "
4100 LET A=LEN A$
4110 LET S$(F+4)=CHR$ A
4120 LET S$(F+5 TO F+4+A)=A$
4125 PRINT "LINE NO. TO GO TO?";
4130 INPUT N
4135 PRINT N
4140 LET B=INT (N/256)
4150 LET S$(F+2 TO F+3)=CHR$ B+CHR$ (N-256*B)
4160 LET W2=F
4170 LET F=F+5+A
4175 NEXT I
4180 GOTO 4000
4500 CLS
4510 PRINT "OBJECT NO.?";
4520 INPUT O
4525 PRINT O
4530 IF O<=15 THEN GOTO 4560
4540 PRINT "TOO HIGH"
4550 GOTO 4510
4560 IF O<=0 THEN RETURN
4565 LET IO=F
4570 LET G=F
4580 LET A=INT (G/256)
4590 LET O$(2*O TO 2*O+1)=CHR$ A+CHR$ (G-256*A)
4600 LET F=F+2
4700 GOSUB 5500
4710 LET S$(G+1)=CHR$ 0
4770 PRINT "1ST PLACE FOR IT?";
4780 INPUT F
4790 PRINT F
4800 GOSUB 5800
4810 LET S$(2)=CHR$ 0
4820 GOSUB 6000
4830 GOTO 4500
5000 CLS
5010 PRINT "PLACE NO.?";
5020 INPUT N 
5023 PRINT N
5025 IF N<=50 THEN GOTO 5030
5026 PRINT "TOO HIGH"
5027 GOTO 5010
5030 IF N<=0 THEN RETURN
5035 LET G=F
5036 LET A=INT (G/256)
5037 LET P$(2*N TO 2*N+1)=CHR$ A+CHR$ (G-256*A)
5040 LET F=F+10
5050 GOSUB 5500 
5170 PRINT "LOSE 2ND?"
5180 INPUT A
5190 LET S$(G+3)=CHR$ A
5200 LET S$(G+1 TO G+2)=" "
5220 LET A$="WNSEWUD"
5230 CLS
5240 PRINT "PLACES YOU GET TO?"
5250 FOR I=1 TO 6
5260 PRINT A$(I);
5270 INPUT A
5275 PRINT A
5280 LET S$(G+3+I)=CHR$ A
5290 NEXT I
5295 GOTO 5000
5300 PRINT A$
5310 LET L=LEN A$
5320 LET S$(F)=CHR$ L
5330 LET F=F+1+L
5340 LET S$(F-L TO F-1)=A$
5350 RETURN 
5500 PRINT "SHORT DESCRIPTION?" 
5510 INPUT A$
5515 LET F1=F
5520 GOSUB 5300
5530 PRINT "LONG?"
5540 INPUT A$
5550 IF A$="END" THEN GOTO 5590
5560 IF A$="" THEN GOTO 5540 
5570 GOSUB 5300
5580 GOTO 5540
5590 PRINT "DO YOU WANT TO RETYPE ABOVE?"
5600 INPUT A$
5610 IF A$(1)="N" THEN GOTO 5640
5620 LET F=F1
5630 GOTO 5500
5640 LET S$(F)=" "
5650 LET F=F+1
5660 PRINT "SCORE?";
5670 INPUT A
5680 PRINT A
5690 LET S$(G)=CHR$ A
5700 RETURN
5800 LET IP=P*2
5810 LET IP=256*CODE P$(IP)+CODE P$(IP+1)
5820 RETURN
5900 LET IO=O+2
5910 LET IO=256+CODE O$(IO)+CODE O$(IO+1)
5920 RETURN
5999 REM DROP
6000 LET I=1
6010 LET K=IP
6020 GOTO 6050
6029 REM GET
6030 LET I=IP
6040 LET K=1 
6050 LET A$=CHR$ 0
6060 LET R=0
6070 LET B$=S$(I+1)
6080 IF A$=B$ THEN GOTO 6130
6090 IF B$=" " THEN RETURN
6100 LET J=2*CODE B$
6110 LET I=256*CODE O$(J)+CODE O$(J+1)
6120 GOTO 6070
6130 LET S$(I+1)=S$(IO+1)
6140 LET S$(IO+1)=S$(K+1)
6150 LET S$(K+1)=A$
6160 LET R=1
6170 RETURN
6500 LET IO=1
6510 GOTO 6530
6520 LET IO=IP
6530 LET O=CODE S$(IO+1)
6540 IF O=0 THEN RETURN
6550 GOSUB 5900
6560 LET L=CODE S$(IO+2) 
6570 LET A$=S$(IO+3 TO IO+2+L)
6580 IF L<>LEN Y$ THEN GOTO 6610
6590 IF A$=Y$ THEN RETURN
6600 GOTO 6530
6610 IF LEN Y$<4 THEN GOTO 6530
6620 IF A$(1 TO 4)=Y$(1 TO 4) THEN RETURN
6630 GOTO 6530
6690 LET S=S+CODE S$(IP)
6700 SCROLL
6710 PRINT "YOU ARE IN:" 
6720 LET I=IP+CODE S$(IP+10)+11
6730 LET L=CODE S$(I)
6740 IF L=0 THEN GOTO 6900
6750 SCROLL
6760 PRINT S$(I+1 TO I+L)
6770 LET I=I+L+1
6780 GOTO 6730
6800 SCROLL
6810 PRINT "YOU ARE IN ";
6820 LET L=CODE S$(IP+10) 
6830 PRINT S$(IP+11 TO IP+10+L)
6900 LET IO=IP
6910 LET O=CODE S$(IO+1)
6920 IF O=0 THEN RETURN
6930 SCROLL
6940 PRINT "THERE IS HERE"
6950 GOSUB 5900
6960 LET I=IO+3+CODE S$(IO+2)
6970 LET L=CODE S$(I)
6980 SCROLL 
6990 PRINT S$(I+1 TO I+L)
7000 LET O=CODE S$(IO+1)
7010 IF O=0 THEN RETURN
7020 GOTO 6950 

ADVENTURE.P
(6.68 KiB) Downloaded 207 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Type-Ins] Links...

Post by XavSnap »

"Your computer" 4/82
"BIORYTHM"

Code: Select all

10 REM ***********************
20 REM *                     *
30 REM *  BIORYTHM PROGRAM   *
40 REM *  A PROGRAM BY:      *
50 REM *  MICHAEL SORENSEN   *
60 REM *  FOR ZX-81 WITH 16K *
70 REM *                     *
80 REM ***********************
90 REM INPUT
100 PRINT AT 0,0;"BIORYTHM FOR"
110 PRINT AT 20,0;"WRITE THE NAME"
120 PRINT AT 21,0;"AND PRESS *NEWLINE*"
130 INPUT A$
140 PRINT AT 0,13;A$
150 PRINT AT 1,0;"BORN THE"
160 PRINT AT 20,10;"BIRTHDAY"
170 INPUT FD 
180 PRINT AT 1,9+(FD<10);FD;"-"
190 PRINT AT 20,10;"MONTH OF BIRTH"
200 INPUT FM
210 PRINT AT 1,12+(FM<10);FM;"-"
220 PRINT AT 20,10;"YEAR OF BIRTH"
230 INPUT FY
240 PRINT AT 1,15;FY
250 PRINT AT 2,0;"BDAY THE"
260 PRINT AT 20,10;"BIORYTHM DAY"
270 INPUT BD
280 PRINT AT 2,9+(BD<10);BD;"-"
290 PRINT AT 20,19;"MONTH"
300 INPUT BM
310 PRINT AT 2,12+(BM<10);BD;"-"
320 PRINT AT 20,19;"YEAR" 
330 INPUT BY
340 PRINT AT 2,15;BY
345 REM PRINT 23 SPACES
350 PRINT AT 20,0;"                        " 
355 REM PRINT 23 SPACES
360 PRINT AT 21,0;"                        "
400 LET S=0
500 REM CALCULATE THE NUMBER OF DAYS IN THE REST OF THE YEAR
510 LET D=FD
520 LET M=FM
530 LET Y=FY
550 GOSUB 2000
560 LET AD=-X
600 REM CALCULATE THE NUMBER OF INTERCALARY DAYS
610 FOR Z=FY TO BY
620 IF Z/4-INT (Z/4)=0 AND Z/100-INT (Z/100)<>0 AND FY<>BY THEN LET S=S+1
630 NEXT Z
640 REM CALCULATE THE NUMBER OF DAYS FROM THE BIRTH TO THE BIORYTHM YEAR STARTS
650 LET AD=AD+S+365*(BY-FY)
700 REM CALCULATE THE NUMBER OF DAYS IN THE BIORYTHM YEAR
710 LET D=BD
720 LET M=BM
730 LET Y=BY
750 GOSUB 2000
760 LET AD=AD+X+(M>2 AND Y/4 -INT (Y/4)=0 AND Y/100-INT (Y/100)<>0)
800 REM CALCULATE THE BIORYTHM
810 GOSUB 2500
820 REM TRANSCRIBE THE BIORYTHM
830 PRINT AT 4,0;"PHYSICAL:"; TAB (15-(INT (99*A+.5)<0));INT (100*A+.5)/100
840 PRINT "PSYCHE:";TAB (15-(INT (99*B+.5)<0));INT (100*B+.5)/100
850 PRINT "INTELLECTUAL:"; TAB (15-(INT (99*C+.5)<0));INT (100*C+.5)/100
860 PRINT "AVERAGE:"; TAB (15-(INT (99*D+.5)<0)); INT (100*D+.5)/100
870 PRINT
880 REM PRINT A SYSTEM OF CO-ORDINATES
890 PRINT AT 11,1;"GOOD DAYS"
900 PRINT AT 21,1;"BAD DAYS"
910 PRINT AT 9,0;"THE B-DAY AND THE";" NEXT 30 DAYS"
920 FOR P=1 TO 21 STEP 2
930 PLOT 0,P
940 NEXT P
950 FOR P=0 TO 63 STEP 2
960 PLOT P,11
970 NEXT P
1000 REM PRINT THE CURVE
1010 FOR G=AD TO AD+30
1020 GOSUB 2520
1030 PLOT 2*(G-AD)+1, INT (10*D+.5)+11
1040 NEXT G
1400 REM THE END
1500 STOP
2000 REM THE NUMBER OF DAYS FROM THE 1/1
2010 LET X=D
2020 IF M=2 THEN LET X= 31+X
2030 IF M=3 THEN LET X= 59+X
2040 IF M=4 THEN LET X= 90+X
2050 IF M=5 THEN LET X=120+X
2060 IF M=6 THEN LET X=151+X
2070 IF M=7 THEN LET X=181+X
2080 IF M=8 THEN LET X=213+X
2090 IF M=9 THEN LET X=242+X
2100 IF M=10THEN LET X=273+X
2110 IF M=11THEN LET X=303+X
2120 IF M=12THEN LET X=334+X
2200 RETURN
2500 REM CALCULATE THE BIORYTHM
2510 LET G=AD
2520 LET A=SIN (2*PI*G/23)
2530 LET B=SIN (2*PI*G/28)
2540 LET C=SIN (2*PI*G/33)
2550 REM CALCULATE THE AVERAGE
2560 LET D=(A+B+C)/3
2600 RETURN
2700 STOP
9700 REM SET THE RECORDER TO RECORDING AND PRESS; RUN 9800
9800 SAVE "BIORYTHM"
9900 RUN 
BIORYTHM.P
(4.05 KiB) Downloaded 208 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Type-Ins] Links...

Post by XavSnap »

"Your computer" 4/82
"SATELLITE PLOT"

Code: Select all

1 REM ---- SATELLITE PLOT ----
5 REM "SATELLITES BY TERRY JEEVES"
10 PRINT "TO DETERMINE SATELLITE VEOLICTY,HEIGHT AND PERIOD IN A CIRCULAR ORBIT"
15 PRINT
20 PRINT 
25 PRINT "TO SOLVE ORBITAL ELEMENTS,","CHOOSE 1 OR 2 AND N/L"
30 PRINT
35 PRINT "FOR A GIVEN HEIGHT......1" 
40 PRINT "FOR A GIVEN VEOLICTY....2"
45 INPUT A
50 IF A=1 THEN GOTO 70 
55 IF A=2 THEN GOTO 100
60 IF A<>1 OR A<>2 THEN CLS
65 IF A<>1 OR A<>2 THEN GOTO 10
70 CLS
75 PRINT "INPUT HEIGHT IN MILES"
80 INPUT H 
85 LET V=(INT((SQR((144*10**10)/(3960+H)))*36))/100
90 PRINT "ORBITAL VELOCITY AT ";H;" MILES","IS ";V;" MILES/SEC" 
95 GOTO 125
100 CLS
105 PRINT "INPUT VELOCITY IN MILES/SEC"
110 INPUT V
115 LET H=(INT(100*((144*10**10)/((3600*V)**2)-3960)))/100
120 PRINT "AT A VELOCITY OF ";V;" MILES/SEC","ORBITAL HEIGHT WILL BE ",H;" MILES"
125 PRINT
130 PRINT
135 LET P=(INT(100*(2*PI*(3960+H)/(60*V))))/100
140 PRINT "ORBITAL PERIOD WILL BE",P;" MINUTES" 
SATELLITE.P
(1.82 KiB) Downloaded 210 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Type-Ins] Links...

Post by XavSnap »

"Your computer" 4/82
'ZxPrinter Double Height"

POKE 16389,120
POKE 16388,0
NEW
LOAD "DH"
RUN
LET P$="HELLO WORLD"
GOSUB 9200

Code: Select all

1 REM ---- DOUBLE HEIGHT ----
10 REM (C) 1982 BRIAN SOME
11 DIM E$(32)
12 LET M=PEEK 16389*256
15 FOR X=0 TO 63
17 REM THIS SECTION LOADS THE NEW CHARACTER SET ABOVE RAMTOP
20 FOR C=0 TO 3 
22 POKE 2*C+X*8+M,PEEK (7680+X*8+C)
24 POKE 1+2*C+X*8+M,PEEK (7680+X*8+C)
26 POKE 512+2*C+X*8+M,PEEK (7680+X*8+C+4)
28 POKE 513+C*2+X*8+M,PEEK (7680+X*8+C+4) 
30 NEXT C
40 NEXT X 
50 FOR I=0 TO 112
55 POKE 31744+I,PEEK (2161+I)
60 NEXT I
65 POKE 31857,201 
9000 REM DOUBLE HEIGHT SCREEN COPY 
9020 LET UF=PEEK 16396+PEEK 16397*256
9030 FOR U=0 TO 21
9040 FOR O=1 TO 32
9050 POKE 16443+O,PEEK (UF+U*33+O) 
9060 NEXT O 
9070 POKE 31800,PEEK 16389/2 
9080 LET UZ=USR 31744
9090 POKE 31800,PEEK 31800+1 
9100 LET UZ=USR 31744 
9110 NEXT U
9120 RETURN 
9200 REM DOUBLE HEIGHT PRINT ROUTINE
9210 LET Z=INT((LEN P$-1)/32)*32
9220 LET P$=P$+E$( TO 32-(LEN P$-Z))
9230 FOR X=0 TO INT (LEN P$/32)-1 
9240 FOR Y=1 TO 32 
9250 POKE 16443+Y,CODE P$(Y+X*32) 
9255 NEXT Y
9260 POKE 31800,PEEK 16389/2
9270 LET XX=USR 31744
9280 POKE 31800,PEEK 31800+1 
9290 LET XX=USR 31744 
9300 NEXT X 
9305 LET P$="" 
9310 RETURN 
DH.P
(2.09 KiB) Downloaded 190 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Type-Ins] Links...

Post by XavSnap »

"Your computer" 4/82
"Lunar Lander"

Code: Select all

1 CLS 
5 REM LUNAR LANDER 
10 REM BY SSG 3-1-82 
15 PRINT "INSTRUCTIONS? (Y/N)" 
20 INPUT I$ 
25 IF I$="N" THEN GOTO 95 
30 REM INSTRUCTIONS 
35 PRINT "WHILE FLYING A LOW ORBIT MAPPING" 
40 PRINT "MISSION ON THE MOON, YOUR CRAFT" 
45 PRINT "HAS HIT AN ASTEROID. YOU ARE" 
50 PRINT "SAFE INSIDE YOUR EJECTED SPACE"
55 PRINT "CAPSULE WHEN YOU DISCOVER THAT"
60 PRINT "YOUR AUTOMATIC DESCENT COMPUTER"
65 PRINT "HAS FAILED. YOUR MAIN THRUST" 
70 PRINT "UNIT IS FALTERING BUT MAY GET " 
75 PRINT "YOU DOWN SAFELY."
76 PRINT "TO SAVE THE CAPSULE YOU MUST "
77 PRINT "LAND AT LESS THAN 2FT/SEC. TO "
78 PRINT "SURVIVE YOU MUST LAND AT LESS"
79 PRINT "THAN 5FT/SEC. CAPSULE INSTRUM-"
80 PRINT "ENTATION IS OK AND WILL TELL "
85 PRINT "YOU WHERE YOU ARE. REMEMBER,"
90 PRINT "GRAVITY WILL ADD 5FT/SEC. TO " 
91 PRINT "YOUR DESCENT." 
92 PRINT 
93 PRINT "GOOD LUCK" 
94 PAUSE 1400 
95 CLS 
96 REM L=LIMIT OF BURN 
100 LET L=INT(RND*(10)+25) 
110 PRINT 
120 PRINT "YOUR ENGINES ARE CAPABLE OF A "
125 PRINT "MAX. BURN OF ";L;"FT/SEC." 
130 REM INITIALIZE DATA:T=TIME,H=HEIGHT,V=VELOCITY,F=FUEL LEFT
135 LET T=1 
140 LET V=INT(RND*75)-75
145 LET H=INT(RND*300)+200 
150 LET F=120
155 PRINT 
160 PRINT "MANUAL DESCENT MODE ENGAGED" 
165 PRINT 
170 PRINT "TIME HEIGHT VELOCITY FUEL BURN"
175 PRINT "SEC. (FEET) (FT/SEC) LEFT"
180 PRINT TAB 1;T;TAB 7;H;TAB 15;V;TAB 22;F 
185 INPUT B 
190 IF B>L THEN LET B=L 
195 IF F<=0 THEN LET B=0
200 IF B+100<=100 THEN LET B=0 
210 LET F=F-B 
215 REM B=BURN
220 LET T=T+1 
225 LET V=V-5+B
230 LET H=H+V 
235 LET E=RND*(12) 
240 IF E<9 AND E>6 THEN GOSUB 500 
245 REM VARIABLE "E" DETERMINES THRUST FAILURE
250 IF F<=0 THEN GOTO 290
255 IF H<=0 AND V+100=95 THEN GOTO 325 
260 IF H<=0 AND V+100=98 THEN GOTO 310
265 IF H>0 THEN GOTO 180 
270 PRINT "CONGRATULATIONS." 
271 PRINT "YOU HAVE LANDED SAFELY"
275 PRINT "YOUR VELOCITY AT TOUCHDOWN WAS"
276 PRINT V;"FT/SEC." 
280 PRINT "WITH ";F;"UNITS OF FUEL LEFT" 
281 PAUSE 500
285 GOTO 360
290 PRINT "OUT OF FUEL" 
295 IF H>0 THEN GOTO 180 
300 GOTO 325 
301 CLS
310 PRINT "YOU HAVE MADE A CONTROLLED " 
311 PRINT "CRASH. YOU ARE ALIVE BUT THE" 
312 PRINT "LANDER IS DAMAGED AND YOU ARE"
315 PRINT "***STRANDED***"
316 PAUSE 500
320 GOTO 275 
321 CLS 
325 PRINT "CRUNCH. YOU HAVE JUST BECOME" 
330 PRINT "THE MOONÀS NEWEST CRATER. YOUR"
331 PRINT "FLIGHT PAY WILL BE FORWARDED"
332 PRINT "TO YOUR NEXT OF KIN"
333 PAUSE 500 
335 GOTO 275 
340 PRINT 
360 PRINT 
365 PRINT "LIKE TO TRY AGAIN?(Y/N)"
370 INPUT X$
375 IF X$="Y" THEN RUN
380 IF X$<>"Y" AND X$<>"N" THEN GOTO 370 
385 STOP 
500 REM DERIVE LEVEL OF THRUST FAILURE 
505 LET L=INT(L-(RND*(10)+1)) 
510 IF INT(L+100)<=100 THEN GOTO 530 
515 PRINT "DETERIORATION IN MAIN THRUST" 
516 PRINT "          UNIT              " 
520 PRINT "YOUR MAX. BURN IS NOW ";L;"FT/SEC." 
525 RETURN 
530 PRINT "YOUR THRUST UNITS HAVE FAILED "
531 PRINT "    COMPLETELY                "
535 LET L=0
540 RETURN 
9000 SAVE "LANDER"
9999 RUN
LANDER.P
(3.48 KiB) Downloaded 216 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Type-Ins] Links...

Post by XavSnap »

"Your computer" 12/82
1K Chess #1 /!\ ASM 16k only.

Code: Select all

1 REM [DEC:\
 55, 51, 39, 46, 54, 39, 51, 55,\
183,179,167,176,182,167,179,183,\
197,245,205,245,  8,241,215,193,\
 60,201,205,140, 65,  6, 90,136,\
254,  0, 32,  2, 54,128, 35, 35,\
 16,245,201,245,229,193,205,245,\
  8,  6,  8,241,215, 16,253,201,\
  1,  0,  2,197,205,245,  8, 62,\
  8,  6, 14,215, 16,253,193,  4,\
 62, 15,184, 32,238,  1,  2,  4,\
205,245,  8, 17,130, 64,  1,  8,\
  0,205,107, 11, 33,  2,  5,229,\
 62, 53,205,173, 64,  6,  4,225,\ 
 36,229,197,175,205,175, 64,193,\
225, 16,245, 36,229, 62,181,205,\
173, 64,225, 36, 68, 77,205,245,\
  6, 17,138, 64,  1,  8,  0,205,\
107, 11, 62, 38,  1,  9, 14,205,\
146, 64, 13,254, 40, 32,248, 62,\
 29,  1, 12,  4,205,146, 64,  4,\
254, 37, 32,245,205,156, 64,201,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0, 14, 34, 24, 10, 14, 15,\
 24,  6, 14,180, 24,  2, 14,195,\
  6,  0, 42, 12, 64,  9,201,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0,\
  0,  0,  0,  0,  0,  0,  0,  0 ]
1KCHESS.P
(740 Bytes) Downloaded 201 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: [Type-Ins] Links...

Post by XavSnap »

"Your computer" 1/83
1K Chess #2 /!\ ASM 16k only.

Code: Select all

1 REM [DEC: \
229,197,205,187,  2, 68, 77, 85,\
 20, 40,247,205,189,  7,126,193,\
197,185, 40,  6, 12, 16,250,193,\
 24,231,193,225,119,201,  1, 29,\
  8,205,130, 64, 43, 14, 38,205,\
130, 64, 35,126,214, 28, 71, 14,\
 11,175,129, 16,253,198, 97, 43,\
150, 79,105, 38, 67,126,  6,  1,\
230,127,254,  0, 40, 20,  4,254,\
118, 40, 15,254, 39, 56, 11,126,\
  4, 46, 55,134,203,127, 40,  2,\
  6,  0,120,105,201,  1, 11,255,\
245,246,244, 12,\
\
 10, 13,243, 21,235, 23,233,247,\
  9, 11, 10, 12, 54, 55, 39, 51,\
 53,175, 50, 70, 64,126,230,127,\
254, 53, 40, 79, 14,  1,  6,  8,\
 33,231, 64,254, 51, 40, 22, 46,\
223,254, 48, 40, 16, 72,254, 54,\
 40, 11,  6,  4,254, 55, 40,  5,\
 46,227,254, 39,192,123,134,245,\
229,197,254, 63, 56, 30,254,148,\
 48, 26,205,187, 64,254,  2, 48,\
 19,245,205,141, 66,241,254,  0,\
 40, 10,193,225,121,254,  1, 40,\
  5,241, 24,218,\
\
193,225,241, 35, 16,211,201,126,\
230,128, 33,228, 64, 32,  2, 46,\
241, 22,  3,123,134,229,245,254,\
 63, 56, 32,254,148, 48, 28,205,\
187, 64,254,  0, 40, 28,254,  1,\
 32, 17,122,254,  1, 32, 12,205,\
141, 66,123,254, 82, 56, 19,254,\
126, 48, 15,241,225, 43, 21, 32,\
210,201,122,254,  1,196,141, 66,\
 24,241,241,225, 95, 24,197,229,\
194,213,229,197, 85, 33, 64, 64,\
205, 36,  7,205, 10, 67,120,132,\
 79,241,205, 10,\
 \
 67,225,205, 24, 67, 48,  1,128,\
 79,225,209, 94,114,229,213,205,\
 24, 67, 48,  1,144,245,205,247,\
 66,205,  1, 66,193, 48,  2,  4,\
  4,209,225,115,225,205,250, 66,\
205, 24, 67, 48,  1,  5,205,250,\
 66,205,247, 66,120, 33, 60, 64,\
119,235, 33, 65, 64,190,216,  1,\
  5,  0, 24, 11, 33, 99, 64, 17,\
 70, 64,  1, 28,  0, 56,  1,235,\
237,176,201, 58, 55, 67,198, 48,\
 33, 62, 67, 71,237,177, 43, 34,\
128, 64,  6, 66,\
\
 33, 62, 67, 35,229,197, 93,205,\
191, 64,254,  0, 32, 25,205,247,\
 66,107,205,247, 64,205,247, 66,\
205,130, 66, 40, 10, 42,128, 64,\
189, 32,245,193,225, 55,201,193,\
225, 16,216,167,201,  6,  5, 62,\
  8, 33,159, 67, 35,119, 16,252,\
205,160, 64,254,  3, 32,238, 34,\
  7, 64, 93,205,247, 64, 33,161,\
 67,205,160, 64,254,  2,235, 48,\
220,205,130, 66, 40,215,185, 32,\
248,205,255, 66,217,205,  1, 66,\
217,56,8,205,\
\
235, 66,205,150, 66, 24,194,112,\
121, 18, 24,249, 33, 70, 64, 53,\
126, 60,200,133,111,126,201, 33,\
 70, 64, 52,126,133,111,113,201,\
175, 50, 65, 64,  6, 66, 33, 62,\
 67, 35,229,197, 93,205,191, 64,\
254,  3, 32, 41,107, 34,  7, 64,\
205,247, 64,205,130, 66, 40, 29,\
 95, 22, 67,205,255, 66,217,167,\
205,242, 65,205,  1, 66,217,112,\
121, 18, 56,  3,205,153, 65, 55,\
205,242, 65, 24,222,193,225, 16,\
200, 58, 65, 64,\
\
254,  0, 40,254, 33, 69, 64,126,\
 43, 43, 94, 22, 67, 18, 43,110,\
 98,203, 69, 54,128, 40,  2, 54,\
  0,205,247, 66,201, 33, 55, 67,\
126,198,128,119,201, 42,  7, 64,\
 26, 79,126, 54,  0, 18, 71,201,\
230,127, 33,242, 64,  6,  5,190,\
200, 35, 16,251,120,201,125,217,\
 50,128, 64,205, 16, 66,217,121,\
201,118,  0,  2,  2,  0,228,118,\
  0,  3,  4,  0,249,212, 61,118,\
  0,  4,233,  0,234, 33, 67, 67,\
 17,  0, 72,  1,\
\
205,  0,237,176,201,128,  8,169,\
183,173,118, 29,  8, 55, 51, 39,\
 48, 54, 39, 51, 55,118, 30,  8,\
 53, 53, 53, 53,128, 53, 53, 53,\
118, 31,  8,  0,128,  0,128, 53,\
128,  0,128,118, 32,  8,128,  0,\
128,  0,128,  0,128,  0,118, 33,\
  8,  0,128,  0,128,  0,128,  0,\
128,118, 34,  8,128,  0,128,  0,\
128,  0,128,  0,118, 35,  8,181,\
181,181,181,181,181,181,181,118,\
 36,  8,183,179,167,176,182,167,\
179,183,118,8,\
\
  8, 45, 44, 43, 42, 41, 40, 39,\
 38,118,  8,  8,  8,  8,  8,  1,\
  0,  4,205,245,  8, 33,  0, 72,\
  6,110,197,229,126,215,225,193,\
 35, 16,247, 33,125, 64, 34, 41,\
 64,195,  7,  3 ]
1KCHESS.P
(999 Bytes) Downloaded 207 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Post Reply