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

[XavSnap]

"Your computer" 10/84
"Voice recognition"

Code: Select all

1 REM [HEX:\
21,7B,40,3E,00,77,06,FF,\
DB,FE,FE,FF,20,01,34,10,\
F7,C9,CD,2B,0F,CD,82,40,\
3A,7B,40,FE,30,38,F6,C9,\
2A,10,40,01,06,00,09,E5,\
CD,94,40,CD,23,0F,E1,0E,\
80,E5,CD,82,40,E1,3A,7B,\
40,77,23,16,03,AF,3D,20,\
FD,15,20,F9,0D,20,EA,C9,\
ED,4B,10,40,21,86,00,09,\
54,5D,21,06,00,09,06,05,\
E5,C5,D5,E5,CD,A2,40,E1,\
D1,01,80,00,ED,B0,C1,E1,\
10,EE,2A,10,40,E5,11,86,\
02,19,3A,21,40,47,11,80,\
00,19,10,FD,E3,11,86,00,\
19,D1,0E,80,FD,21,00,00,\
E5,06,05,C5,06,00,4E,FD,\
09,01,80,00,09,C1,10,F3,\
C5,01,05,00,FD,E5,E1,3E,\
FF,3C,A7,ED,42,30,FA,12,\
13,C1,E1,23,0D,20,D5,FD,\
21,00,40,CD,2A,0A,CD,2B,\
0F,C9,CD,ED,41,ED,5B,10,\
40,21,06,00,19,E5,21,06,\
03,19,D1,3A,7C,40,47,3E,\
00,32,21,40,0E,00,C5,06,\
80,0E,00,D5,1A,96,30,02,\
ED,44,FE,16,30,01,0C,13,\
23,10,F1,D1,3A,21,40,B9,\
79,C1,30,04,48,32,21,40,\
10,DC,3A,7C,40,3C,91,4F,\
C5,CD,2A,0A,CD,2B,0F,C1,\
C9,CD,23,0F,CD,2A,0A,2A,\
30,40,E5,3E,98,32,30,40,\
2A,10,40,11,06,00,19,3A,\
21,40,FE,00,28,09,11,80,\
00,C6,05,47,19,10,FD,06,\
40,0E,00,C5,5E,7B,23,86,\
23,E5,1F,06,00,04,D6,04,\
30,FB,C5,05,CD,B5,0B,C1,\
10,F8,E1,C1,0C,10,E4,E1,\
22,30,40,CD,2B,0F,01,00,\
00,CD,F5,08,C9,3E,30,32,\
9F,40,CD,94,40,3E,38,32,\
9F,40,C9,CD,A2,40,FD,2A,\
10,40,11,07,00,FD,19,06,\
7D,FD,7E,01,FD,86,FF,1F,\
4F,FD,96,00,30,02,ED,44,\
FE,0A,38,03,FD,71,00,FD,\
23,10,E6,FD,21,00,40,C9,\
CD,82,40,01,00,00,3A,9E,\
40,57,3A,7B,40,BA,38,01,\
0C,C9,01,00,00,CD,F5,08,\
06,80,3E,00,C5,D7,C1,10,\
F9,C9 ]

5 CLS
7 PRINT TAB 4;"’’voice«recognition’’",,,,,
10 PRINT TAB 3;"HOW MANY WORDS ?"
20 INPUT W
30 IF W>15 THEN RUN
40 POKE 16508,W
50 CLEAR
60 DIM Z$(768+PEEK 16508)
70 LET W=PEEK 16508
80 CLS
90 DIM W$(W,10)
100 FOR N=1 TO W
110 PRINT "ENTER WORD ";N
120 INPUT W$(N)
130 GOSUB 2000
140 NEXT N
1000 CLS
1010 PRINT TAB 6;"<TESTING ROUTINE>"
1020 RAND 16863
1030 PRINT AT 6,3;"speak«when«you«are«ready–"
1040 LET L=USR 16700
1050 PRINT "THE WORD WAS: ";W$(L)
1060 PRINT ,,,,TAB 4;"make«a«noise«to«cont–"
1100 RAND USR 16863+USR 16532
1150 FAST
1160 CLS
1170 PRINT TAB 7;"³** CONTINUE"
1180 PRINT TAB 7;"³** CHANGE"
1190 PRINT TAB 7;"³** RE-RUN"
1200 PRINT TAB 7;"g?? LAST VOICE"
1210 FOR T=1 TO W
1220 PRINT TAB 7;"g";(" " AND T<10);TAB 10;;T:" ";W$(T) 
1230 NEXT T
1240 SLOW 
1250 FOR T=0 TO 3-W
1260 PRINT AT T,10;""
1270 FOR A=1 TO 15
1280 IF USR 16922=1 THEN GOTO 1330 
1290 NEXT A
1300 PRINT AT T,10;" "
1310 NEXT T 
1320 GOTO 1250
1330 IF T<3 THEN GOTO (1000 AND T=0)+(1600 AND T=1)+(5 AND T=2)
1340 LET T=T-3
1350 LET E$= (" LAST VOICE" AND T=0)+(": "+W$(T+(T=0)) AND T>0) 
1360 POKE 16417,T
1370 RAND USR 16779
1380 PRINT "GRAPH OF";E$
1390 GOTO 1100
1500 PRINT AR USR 16940,5;"WHICH SOUND ? --"
1510 FOR T=4 TO 3+W
1520 PRINT AT T,10;""
1530 FOR A=1 TO 15
1540 IF USR 16922=1 THEN GOTO 1590
1550 NEXT A
1560 PRINT AT T,10;" "
1570 NEXT T 
1580 GOTO 1510 
1590 LET N=T-3
1600 GOSUB 2000 
1610 GOTO 1150
2000 CLS
2010 PRINT AT 6,3;"speak«when«you«are«ready" 
2020 POKE 16417,N 
2030 RAND USR 16586
2040 RETURN
5000 FOR A=16514 TO 16954 STEP 8
5100 LPRINT A;":";(PEEK A+PEEK (A+1)+PEEK (A+2)+PEEK (A+3)+PEEK (A+4)+PEEK (A+5)+PEEK (A+6)+PEEK (A+7))
5500 NEXT A
5600 STOP
9998 SAVE "VR"
9999 RUN 

VR.P

(2.94 KiB) Downloaded 154 times

[XavSnap]

"Your computer" 11/84
"Zx81 Assembler - [SUPER'Sembler] "

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

Code: Select all

1 REM [HEX:\
11,AB,6C,ED,53,04,40,21,\ 
94,40,01,0A,0F,ED,B0,C3,\ 
C3,03,CD,34,7A,CD,17,6E,\ 
ED,43,FC,7F,21,00,00,22,\ 
F8,7F,21,3F,40,22,F3,7F,\ 
3E,00,32,F7,7F,21,00,00,\ 
22,F5,7F,21,46,6D,22,F1,\ 
7F,2A,F3,7F,36,00,23,36,\ 
00,2A,FC,7F,22,ED,7F,23,\ 
7E,FE,76,28,06,FE,19,28,\ 
02,18,F4,22,E8,7F,11,06,\ 
00,7E,FE,76,28,03,11,01,\ 
00,19,22,FC,7F,2A,ED,7F,\ 
7E,FE,0E,CC,2B,70,FE,0B,\ 
20,05,CD,77,6E,18,AB,FE,\ 
11,CA,E1,6D,FE,17,28,C1,\ 
CD,2F,6E,CD,F6,79,78,FE,\ 
27,CA,6D,70,79,C6,14,32,\ 
3E,40,CD,2F,6E,2A,F3,7F,\ 
7E,FE,1C,20,04,2A,F1,7F,\ 
E9,2A,BC,79,7E,FE,10,CA,\ 
9E,6E,C3,C9,6E,21,40,40,\ 
22,F3,7F,21,54,6D,22,F1,\ 
7F,18,D7,3A,3E,40,FE,4A,\ 
D2,BB,6D,FE,40,38,05,FE,\ 
4A,DA,A5,6D,CD,12,7A,78,\ 
FE,27,CA,BB,6D,2A,FE,7F,\ 
79,77,3A,F7,7F,FE,01,28,\ 
12,FE,02,28,19,23,22,FE,\ 
7F,2A,F8,7F,23,22,F8,7F,\ 
C3,BB,6C,2A,FE,7F,23,3A,\ 
F5,7F,77,C3,7E,6D,2A,FE,\ 
7F,23,ED,4B,F5,7F,71,23,\
70,C3,7E,6D,CD,20,7A,78,\
FE,27,CA,6D,70,2A,FE,7F,\
36,CB,23,71,22,FE,7F,C3,\
73,6D,21,7D,79,36,C8,23,\
36,78,CD,7C,79,78,FE,27,\
CA,6D,70,2A,FE,7F,36,ED,\
EB,13,21,72,7B,09,7E,12,\
EB,22,FE,7F,7F,C3,73,6D,\
3A,D2,7B,FE,00,C4,9A,6F,\
3A,D3,7B,FE,00,C4,6D,6F,\
11,F7,6D,C3,70,70,31,34,\
34,35,00,26,28,28,34,32,\
35,31,2E,38,2D,2A,29,1B,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,01,80,\
40,03,0A,FE,EA,20,FA,03,\
0A,FE,10,20,F4,C5,E1,11,\
07,00,19,E5,C1,C9,2A,ED,\
7F,ED,4B,E8,7F,7C,B8,20,\
05,7D,B9,D2,94,6E,2A,ED,\
7F,22,BC,79,1E,00,2A,ED,\
7F,7E,FE,00,28,1C,FE,1B,\
28,18,ED,4B,E8,7F,78,BC,\
20,06,79,BD,20,02,18,0A,\
2A,ED,7F,23,22,ED,7F,1C,\
18,DC,2A,ED,7F,23,22,ED,\
7F,7B,32,79,40,C9,ED,5B,\
ED,7F,13,2A,FE,7F,1A,FE,\
0B,28,05,77,23,13,18,F6,\
22,FE,7F,2A,F8,7F,23,22,\
F8,7F,C9,2A,F3,7F,3E,1C,\
77,C9,00,00,00,2A,BC,79,\
23,7E,FE,26,D2,59,70,3E,\
0A,32,E2,70,7E,FE,17,20,\
05,3E,10,32,E2,70,CD,A1,\
70,2A,F3,7F,3E,3C,77,3E,\
02,32,F7,7F,2A,F1,7F,E9,\
21,3E,40,7E,FE,47,CA,59,\
70,FE,49,CA,59,70,FE,48,\
CA,59,70,FE,4D,CA,59,70,\
FE,2F,CA,E8,6F,FE,20,CA,\
E8,6F,2A,BC,79,7E,FE,31,\
20,10,23,7E,FE,1C,38,0A,\
FE,26,30,06,CD,C7,6F,C3,\
5E,6F,2A,BC,79,7E,FE,26,\
D2,59,70,3E,0A,32,E2,70,\
2A,BC,79,7E,FE,17,20,05,\
3E,10,32,E2,70,FE,15,20,\
05,3E,02,32,E2,70,CD,A1,\
70,21,3E,40,7E,FE,2C,28,\
2C,FE,2E,28,28,23,7E,FE,\
27,28,22,FE,26,28,1E,FE,\
25,28,1A,FE,32,28,16,3A,\
F6,7F,FE,00,20,0F,2A,F3,\
7F,3E,31,77,3E,01,32,F7,\
7F,2A,F1,7F,E9,2A,F3,7F,\
3E,29,77,3E,02,32,F7,7F,\
2A,F1,7F,E9,CD,02,7B,78,\
FE,27,C0,11,7A,6F,C3,70,\
70,3E,34,3A,00,2D,26,3B,\
2A,00,32,2E,38,38,2A,29,\
00,26,00,31,26,27,2A,31,\
00,2B,34,37,00,28,26,31,\
31,CD,94,7A,78,FE,27,C0,\
11,A7,6F,C3,70,70,3E,34,\
3A,00,2D,26,3B,2A,00,32,\
2E,38,38,2A,29,00,26,00,\
31,26,27,2A,31,00,2B,34,\
37,00,2F,3A,32,35,2A,BC,\
79,23,3E,0A,32,E2,70,CD,\
A1,70,3A,F5,7F,32,CF,7B,\
3E,00,32,F5,7F,CD,78,7A,\
21,00,00,22,F5,7F,C9,2A,\
ED,7F,ED,4B,E8,7F,7C,B8,\
DA,59,70,7D,B9,CA,59,70,\
DA,59,70,2A,BC,79,23,3E,\
0A,32,E2,70,CD,A1,70,3A,\
F5,7F,32,CF,7B,3E,00,32,\
F5,7F,CD,5C,7A,21,00,00,\
22,F5,7F,3E,38,2A,F3,7F,\
77,3E,01,32,F7,7F,2A,F1,\
7F,E9,3E,0A,32,E2,70,23,\
E5,23,7E,FE,0E,20,FA,23,\
22,ED,7F,7E,E1,F5,CD,A1,\
70,3A,F5,7F,32,CF,7B,3E,\
00,32,F5,7F,CD,44,7A,F1,\
C9,00,00,00,00,00,00,00,\

CD,04,7A,78,FE,27,CA,6D,\
70,2A,F3,7F,79,C6,1C,77,\
2A,F1,7F,E9,11,81,70,01,\
20,00,CD,6B,0B,2A,F8,7F,\
22,07,40,CF,08,32,00,40,\
2E,00,28,26,33,39,00,26,\
38,38,2A,32,27,31,2A,00,\
34,33,2A,00,34,2B,00,39,\
2D,2A,00,28,34,29,2A,1B,\
E5,21,01,00,22,EA,7F,E1,\
23,7E,FE,1C,38,06,FE,2C,\
30,02,18,F4,2B,7E,FE,1C,\
38,04,FE,2C,38,01,C9,E5,\
D6,1C,FE,00,28,13,ED,5B,\
EA,7F,21,00,00,47,19,10,\
FD,EB,2A,F5,7F,19,22,F5,\
7F,ED,5B,EA,7F,21,00,00,\
06,0A,19,10,FD,22,EA,7F,\
E1,18,C9,3C,1C,1C,1D,27,\
29,1D,24,2A,1E,27,1C,1E,\
2F,1C,1F,2F,1C,1D,2F,31,\
15,1C,1C,3D,28,28,2A,25,\
27,1D,2A,24,1F,27,1C,1E,\
30,1C,1F,30,1C,1D,30,31,\
16,1C,1C,20,38,1C,1D,26,\
29,1D,23,2A,1E,26,1C,1E,\
2D,1C,1F,2D,1C,1D,2D,31,\
17,1C,1C,2F,38,1C,2A,25,\
26,1D,2A,23,1F,26,1C,1E,\
2E,1C,1F,2E,1C,1D,2E,31,\
19,1C,1C,2F,33,38,1D,25,\
29,1D,3C,25,1E,25,1C,1E,\
2B,1C,1F,2B,1C,1D,2B,31,\
18,1C,1C,2F,34,38,2A,25,\
25,1D,25,3C,1F,25,1C,1E,\
2C,1C,1F,2C,1C,1D,2C,31,\
3F,1C,1C,2F,35,38,1D,32,\
29,1D,3C,2A,1E,32,1C,1E,\
22,1C,1F,22,1C,1D,22,31,\
1A,1C,1C,2F,30,38,2A,25,\
32,1D,2A,3C,1F,32,1C,1E,\
2A,1C,1F,2A,1C,1D,2A,31,\
1B,1C,1C,1D,2F,2F,1D,2F,\
30,1D,2F,2D,1D,2F,2E,1D,\
2F,2B,1D,2F,2C,1D,2F,22,\
1D,2F,2A,1D,30,2F,1D,30,\
30,1D,30,2D,1D,30,2E,1D,\
30,2B,1D,30,2C,1D,30,22,\
1D,30,2A,1D,2D,2F,1D,2D,\
30,1D,2D,2D,1D,2D,2E,1D,\
2D,2B,1D,2D,2C,1D,2D,22,\
1D,2D,2A,1D,2E,2F,1D,2E,\
30,1D,2E,2D,1D,2E,2E,1D,\
2E,2B,1D,2E,2C,1D,2E,22,\
1D,2E,2A,1D,2B,2F,1D,2B,\
30,1D,2B,2D,1D,2B,2E,1D,\
2B,2B,1D,2B,2C,1D,2B,22,\
1D,2B,2A,1D,2C,2F,1D,2C,\
30,1D,2C,2D,1D,2C,2E,1D,\
2C,2B,1D,2C,2C,1D,2C,22,\
1D,2C,2A,1D,22,2F,1D,22,\
30,1D,22,2D,1D,22,2E,1D,\
22,2B,1D,22,2C,21,1C,1C,\
1D,22,2A,1D,2A,2F,1D,2A,\
30,1D,2A,2D,1D,2A,2E,1D,\
2A,2B,1D,2A,2C,1D,2A,22,\
1D,2A,2A,2A,2A,2F,2A,2A,\
30,2A,2A,2D,2A,2A,2E,2A,\
2A,2B,2A,2A,2C,2A,2A,22,\
2A,2A,2A,37,2A,2F,37,2A,\
30,37,2A,2D,37,2A,2E,37,\
2A,2B,37,2A,2C,37,2A,22,\
37,2A,2A,35,2F,1C,35,30,\
1C,35,2D,1C,35,2E,1C,35,\
2B,1C,35,2C,1C,35,22,1C,\
35,2A,1C,34,2A,2F,34,2A,\
30,34,2A,2D,34,2A,2E,34,\
2A,2B,34,2A,2C,34,2A,22,\
34,2A,2A,2B,2F,1C,2B,30,\
1C,2B,2D,1C,2B,2E,1C,2B,\
2B,1C,2B,2C,1C,2B,22,1C,\
2B,2A,1C,36,2F,1C,36,30,\
1C,36,2D,1C,36,2E,1C,36,\
2B,1C,36,2C,1C,36,22,1C,\
36,2A,1C,30,2F,1C,30,30,\
1C,30,2D,1C,30,2E,1C,30,\
2B,1C,30,2C,1C,30,22,1C,\
30,2A,1C,2D,2F,1C,2D,30,\
1C,2D,2D,1C,2D,2E,1C,2D,\
2B,1C,2D,2C,1C,2D,22,1C,\
2D,2A,1C,33,33,1C,31,27,\
1C,2E,33,29,2E,29,1C,2C,\
33,29,32,27,1C,2A,2A,31,\
22,1C,1C,33,34,1C,33,1C,\
1C,2E,34,29,1C,1E,1C,2C,\
34,29,2C,29,1C,37,2A,31,\
23,1C,1C,33,35,1C,31,26,\
1C,2E,35,29,3A,31,2A,2C,\
35,29,32,26,1C,35,31,1C,\
24,1C,1C,33,30,1C,3B,1C,\
1C,2E,30,29,39,2A,31,2C,\
30,29,1C,1F,1C,34,2A,31,\
25,1C,1C,33,37,1C,31,25,\
1C,2E,37,29,3D,3B,25,2C,\
37,29,32,25,1C,2B,31,1C,\
26,1C,1C,33,3D,1C,2E,22,\
1C,2E,3D,29,3D,26,25,2C,\
3D,29,1C,20,1C,36,31,1C,\
27,1C,1C,33,39,1C,31,28,\
1C,2E,39,29,14,1C,1C,2C,\
39,29,32,28,1C,30,31,1C,\
28,1C,1C,33,3A,1C,1D,32,\
25,2E,3A,29,3E,1C,1C,2C,\
3A,29,1C,1F,1C,2D,31,1C,\
29,1C,1C,76,00,02,02,03,\
EA,40,2F,1C,40,30,1C,40,\
2D,1C,40,2E,1C,40,2B,1C,\
40,2C,1C,40,22,1C,40,2A,\
1C,41,2F,1C,41,30,1C,41,\
2D,1C,41,2E,1C,41,2B,1C,\
41,2C,1C,41,22,1C,41,2A,\
1C,42,2F,1C,42,30,1C,42,\
2D,1C,42,2E,1C,42,2B,1C,\
42,2C,1C,4A,22,1C,42,2A,\
1C,43,2F,1C,43,30,1C,43,\
2D,1C,43,2E,1C,43,2B,1C,\
43,2C,1C,43,22,1C,43,2A,\
1C,44,2F,1C,44,30,1C,44,\
2D,1C,44,2E,1C,44,2B,1C,\
44,2C,1C,44,22,1C,44,2A,\
1C,45,2F,1C,45,30,1C,45,\
2D,1C,45,2E,1C,45,2B,1C,\
45,2C,1C,45,22,1C,45,2A,\
1C,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,01,\
00,00,00,00,00,00,00,00,\
00,46,2F,1C,46,30,1C,46,\
2D,1C,46,2E,1C,46,2B,1C,\
46,2C,1C,46,22,1C,46,2A,\
1C,47,3F,2F,47,3F,30,47,\
3F,2D,47,3F,2E,47,3F,2B,\
47,3F,2C,47,3F,22,47,3F,\
2A,47,40,2F,47,40,30,47,\
40,2D,47,40,2E,47,40,2B,\
47,40,2C,47,40,22,47,40,\
2A,47,41,2F,47,41,30,47,\
41,2D,47,41,2E,47,41,2B,\
47,41,2C,47,41,22,47,41,\
2A,47,42,2F,47,42,30,47,\
42,2D,47,42,2E,47,42,2B,\
47,42,2C,47,42,22,47,42,\
2A,47,43,2F,47,43,30,47,\
43,2D,47,43,2E,47,43,2B,\
47,43,2C,47,43,22,47,43,\
2A,47,44,2F,47,44,30,47,\
44,2D,47,44,2E,47,44,2B,\
47,44,2C,47,44,22,47,44,\
2A,47,45,2F,47,45,30,47,\
45,2D,47,45,2E,47,45,2B,\
47,45,2C,47,45,22,47,45,\
2A,47,46,2F,47,46,30,47,\
46,2D,47,46,2E,47,46,2B,\
47,46,2C,47,46,22,47,46,\
2A,48,3F,2F,48,3F,30,48,\
3F,2D,48,3F,2E,48,3F,2B,\
48,3F,2C,48,3F,22,48,3F,\
2A,48,40,2F,48,40,30,48,\
40,2D,48,40,2E,48,40,2B,\
48,40,2C,48,40,22,48,40,\
2A,48,41,2F,48,41,30,48,\
41,2D,48,41,2E,48,41,2B,\
48,41,2C,48,41,22,48,41,\
2A,48,42,2F,48,42,30,48,\
42,2D,48,42,2E,48,42,2B,\
48,42,2C,48,42,22,48,42,\
2A,48,43,2F,48,43,30,48,\
43,2D,48,43,2E,48,43,2B,\
48,43,2C,48,43,22,48,43,\
2A,48,44,2F,48,44,30,48,\
44,2D,48,44,2E,48,44,2B,\
48,44,2C,48,44,22,48,44,\
2A,48,45,2F,48,45,30,48,\
45,2D,48,45,2E,48,45,2B,\
48,45,2C,48,45,22,48,45,\
2A,48,46,2F,48,46,30,48,\
46,2D,48,46,2E,48,46,2B,\
48,46,2C,48,46,22,48,46,\
2A,49,3F,2F,49,3F,30,49,\
3F,2D,49,3F,2E,49,3F,2B,\
49,3F,2C,49,3F,22,49,3F,\
2A,49,40,2F,49,40,30,49,\
40,2D,49,40,2E,49,40,2B,\
49,40,2C,49,40,22,49,40,\
2A,49,41,2F,49,41,30,49,\
41,2D,49,41,2E,49,41,2B,\
49,41,2C,49,41,22,49,41,\
2A,49,42,2F,49,42,30,49,\
42,2D,49,42,2E,49,42,28,\
49,42,2C,49,42,22,49,42,\
2A,49,43,2F,49,43,30,49,\
43,2D,49,43,2E,49,43,2B,\
49,43,2C,49,43,22,49,43,\
2A,49,44,2F,49,44,30,49,\
44,2D,49,44,2E,49,44,2B,\
49,44,2C,49,44,22,49,44,\
2A,49,45,2F,49,45,30,49,\
45,2D,49,45,2E,49,45,2B,\
49,45,2C,49,45,22,49,45,\
2A,49,46,2F,49,46,30,49,\
46,2D,49,46,2E,49,46,2B,\
49,46,2C,49,46,22,49,46,\
2A,76,00,0A,49,01,EA,37,\
31,28,26,0B,37,37,28,26,\
0B,37,31,26,0B,29,26,26,\
0B,37,37,26,0B,38,28,28,\
0B,28,28,2B,0B,29,2E,0B,\
31,29,0B,2E,33,28,0B,29,\
2A,28,0B,29,2F,33,3F,0B,\
2D,26,31,39,0B,37,38,39,\
1C,0B,37,38,39,24,0B,37,\
38,39,1D,22,0B,37,38,39,\
1E,20,0B,37,38,39,1F,1E,\
0B,37,38,39,20,1C,0B,37,\
38,39,20,24,0B,37,38,39,\
21,22,0B,26,29,29,0B,26,\
33,29,0B,28,26,31,31,0B,\
28,35,0B,2F,35,0B,2F,37,\
0B,34,37,0B,35,34,35,0B,\
35,3A,38,2D,0B,37,2A,39,\
0B,38,27,28,0B,38,3A,27,\
0B,3D,34,37,0B,26,29,28,\
0B,38,27,28,0B,2E,33,0B,\
34,3A,39,0B,2A,3D,3D,0B,\
33,34,35,0B,2A,3D,0B,2A,\
2E,0B,28,35,31,0B,37,31,\
28,0B,37,37,28,0B,37,31,\
0B,37,37,0B,38,31,26,0B,\
38,37,26,0B,38,37,31,0B,\
27,2E,39,0B,37,2A,38,0B,\
38,2A,39,0B,2E,33,0B,33,\
2A,2C,0B,37,2A,39,33,0B,\
2E,32,0B,37,2A,39,2E,0B,\
34,3A,39,0B,37,37,29,0B,\
37,31,29,0B,31,29,2E,0B,\
28,35,2E,0B,2E,33,2E,0B,\
34,3A,39,2E,0B,31,29,29,\
0B,28,35,29,0B,2E,33,29,\
0B,34,3A,39,29,0B,31,29,\
2E,37,0B,28,35,2E,37,0B,\
2E,33,2E,37,0B,34,39,2E,\
37,0B,31,29,29,37,0B,28,\
35,29,37,0B,2E,33,29,37,\
0B,34,39,29,37,0B,76,00,\
0B,7F,00,EA,00,00,0B,10,\
28,27,11,0B,10,2E,3D,11,\
0B,10,2A,29,11,0B,10,2E,\
3E,11,0B,10,2D,31,11,0B,\
10,29,2A,11,0B,10,27,28,\
11,0B,2D,31,0B,29,2A,0B,\
27,28,0B,26,2B,0B,33,33,\
0B,26,0B,2D,0B,31,0B,29,\
0B,2A,0B,27,0B,28,0B,33,\
0B,38,35,0B,33,3F,0B,3F,\
0B,33,28,0B,28,0B,35,34,\
0B,29,38,0B,35,0B,32,0B,\
10,38,35,11,0B,10,33,33,\
11,0B,35,2A,0B,10,28,11,\
0B,1C,0B,1D,0B,1E,0B,1F,\
0B,20,0B,21,0B,22,0B,23,\
0B,76,00,0C,B0,00,EA,39,\
2F,3E,3A,3E,2F,34,25,27,\
1D,3C,27,4B,1C,1C,4C,1C,\
1C,4D,3F,1C,1D,47,2A,39,\
30,3E,3A,3E,30,37,25,27,\
1D,27,3C,4E,1C,1C,1D,48,\
2A,39,2D,3E,3A,3E,2D,34,\
25,26,1D,3C,26,4D,40,1C,\
1D,2A,47,39,2E,3E,3A,3E,\
2E,37,25,26,1D,26,3C,4D,\
41,1C,1D,2A,48,39,2B,3E,\
3A,3E,2B,34,25,25,1D,3C,\
25,50,1C,1C,39,2C,3E,3A,\
3E,2C,37,25,25,1D,26,3C,\
51,1C,1C,34,25,32,1D,3C,\
32,39,2A,3E,3A,3E,2A,37,\
25,32,1D,32,3C,52,1C,1C,\
53,1C,1C,54,1C,1C,55,1C,\
1C,56,1C,1C,57,1C,1C,58,\
1C,1C,59,1C,1C,5A,1C,1C,\
5B,1C,1C,5C,1C,1C,5D,1C,\
1C,5E,1C,1C,5F,1C,1C,60,\
1C,1C,61,1C,1C,76,00,0D,\
33,00,EA,11,EC,70,21,3E,\
40,3E,00,32,3C,40,06,03,\
0E,00,1A,BE,20,01,0C,23,\
13,10,F7,79,FE,03,20,05,\
3A,3C,40,4F,C9,2B,2B,2B,\
3A,3C,40,3C,FE,00,20,DB,\
01,0F,27,C9,76,00,0E,3F,\
00,EA,11,F8,76,3E,01,32,\
3C,40,21,F1,4F,3A,79,40,\
47,1A,FE,0B,28,13,BE,20,\
10,23,13,10,F4,1A,FE,0B,\
20,07,3A,3C,40,06,00,4F,\
C9,1A,FE,0B,28,03,13,18,\
F8,13,3A,3C,40,3C,FE,4E,\
20,CD,00,01,0F,27,C9,76,\
00,0F,3A,00,EA,3E,F8,32,\
B4,79,3E,76,32,B5,79,CD,\
B3,79,C9,3E,45,32,B4,79,\
3E,78,32,B5,79,CD,B3,79,\
C9,3E,EC,32,7D,79,3E,70,\
32,7E,79,CD,7C,79,C9,3E,\
F2,32,7D,79,3E,73,32,7E,\
79,CD,7C,79,C9,76,00,10,\
3A,01,EA,CD,E7,02,21,D4,\
7B,22,D0,7B,2B,36,00,2B,\
36,00,C9,2A,D0,7B,36,66,\
23,3A,CF,7B,4F,71,23,ED,\
5B,FE,7F,73,23,72,23,22,\
D0,7B,C9,2A,D0,7B,36,64,\
23,3A,CF,7B,4F,71,23,ED,\
5B,FE,7F,73,23,72,23,22,\
D0,7B,21,D2,7B,34,C9,2A,\
D0,7B,36,65,23,3A,CF,7B,\
4F,71,23,ED,5B,FE,7F,73,\
23,72,23,22,D0,7B,21,D3,\
7B,34,C9,11,D4,7B,3A,D2,\
7B,FE,00,C8,3D,32,D2,7B,\
1A,FE,64,28,14,13,13,13,\
13,3A,D1,7B,BA,20,F1,3A,\
D0,7B,BB,20,EB,01,0F,27,\
C9,EB,22,CC,7B,11,D4,7B,\
1A,FE,66,28,14,13,13,13,\
13,3A,D1,7B,BA,20,F1,3A,\
D0,7B,BB,20,EB,01,0F,27,\
C9,23,13,1A,BE,28,05,2A,\
CC,7B,18,E2,23,13,E5,1A,\
4F,13,1A,47,EB,1A,6F,13,\
1A,67,54,5D,3F,ED,42,3E,\
FD,95,13,12,D1,13,13,18,\
95,11,D4,7B,3A,D3,7B,FE,\
00,C8,3D,32,D3,7B,1A,FE,\
65,28,14,13,13,13,13,3A,\
D1,7B,BA,20,F1,3A,D0,7B,\
BB,20,EB,01,0F,27,C9,EB,\
22,CC,7B,11,D4,7B,1A,FE,\
66,28,14,13,13,13,13,3A,\
D1,7B,BA,20,F1,3A,D0,7B,\
BB,20,EB,01,0F,27,C9,23,\
13,1A,BE,28,05,2A,CC,7B,\
18,E2,23,13,E5,1A,4F,13,\
1A,47,EB,1A,6F,13,1A,67,\
23,79,77,23,78,77,D1,13,\
13,18,99,00,00,11,3C,00,\
EA,40,41,42,43,44,45,46,\
47,48,49,4A,4B,4D,4F,50,\
51,52,53,56,57,58,59,5A,\
5B,5E,5F,60,61,62,63,67,\
68,69,62,6B,6F,72,73,78,\
79,7A,7B,A0,A1,A2,A3,A8,\
A9,AA,AB,B0,B1,B2,B3,B8,\
B9,BA,BB,76,00,00,00,00 ]

10 SAVE"ZX81ASM"
20 PRINT"\
*ZX81 ASSEMBLER* ANTHONY NWOKOYE\
ºsuper†sembler«° ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿\
µµµµµµµµµµ³µµµµµµµµµµµµµµµµµµµµµ\
usr«™žŸ˜ «´«your«computer«˜˜“Ÿ›«\
¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿\
PRESS A KEY TO MOVE IT ABOVE THERAM-TOP..."
30 PAUSE 5E4
40 RAND USR 16514

Zx81_Assembler_11_84.zip

(16.07 KiB) Downloaded 169 times

Note:
1) Don't add spaces at the end of the REM line.
2) Always use a dot in mnemonics.
3) Have a look to exemples "E1.P", "E2.P" & "E3.P".
4) Have fun...

[dessony]

XavSnap,

I recognized that the "Your Computer" 11/84 "ZX81 Assembler - [SUPER'Sembler]" is almost similar to the Berch Assembler! Now I really appreciated that you decided to upload that zipped folder here!

DesSony

[XavSnap]

May be a good update for this listing !


But most of "Originals" resources had to be preserved to be improved and debugged !

[XavSnap]

"Your computer" 10/84

"Canyon Assault"

Code: Select all

     1  REM [HEX:\
2A,0C,40,11,AE,02,19,E5,\
D1,06,21,13,10,FD,1A,4F,\
3E,08,BE,20,15,97,B9,20,\
06,77,3E,08,12,18,09,3E,\
88,CB,61,28,02,3E,08,77,\
18,0E,3E,3B,BE,20,09,28,\
00,70,CB,79,28,04,97,12,\
18,05,CB,41,20,01,12,1B,\
2B,3E,8E,BE,C8,C3,90,40,\
2A,0C,40,11,00,00,19,23,\
3E,3B,BE,20,03,01,01,00,\
97,BE,20,04,36,09,18,EF,\
11,00,0A,1B,7A,B3,20,FB,\
3E,89,BE,C8,CB,56,28,02,\
0B,C9,36,00,2B,18,F1,2A,\
0C,40,01,00,00,3E,88,BE,\
20,01,03,3E,03,BE,C8,23,\
18,F3 ]


#   5 GOTO 200
#  10 LET M$="42,12,64,17,174,2,2\
5,229,209,6,33,19,16,-3,26,79,62\
,8,190,32,21,151,185,32,6,119,62\
,8,18,24,9,62,136,203,97,40,2,62\
,8,119,24,14,"

#  20 LET M$=M$+"62,59,190,32,9,4\
0,0,112,203,121,40,4,151,18,24,5\
,203,65,32,1,18,27,43,62,142,190\
,200,195,144,64,"

#  30 LET M$=M$+"42,12,64,17,0,0,\
25,35,62,59,190,32,3,1,1,0,151,1\
90,32,4,54,9,24,-17,17,0,10,27,1\
22,179,32,-5,62,137,190,200,203,\
86,40,2,11,201,54,0,43,24,-15,"

#  40 LET M$=M$+"42,12,64,1,0,0,6\
2,136,190,32,1,3,62,3,190,200,35\
,24,-13,:"
#  50 LET A$=""
#  60 LET X=16514 
#  70 FOR F=1 TO LEN M$
#  80 IF M$(F)=":" THEN GOTO 190 
#  90 IF M$(F)="," THEN GOTO 120
#100 LET A$=A$+M$(F)
#110 NEXT F
#120 IF PEEK X=116 THEN PRINT "ERROR IN LINE 1";END
#130 SCROLL
#140 POKE X,VAL A$
#150 PRINT X,PEEK X
#160 LET X=X+1
#170 LET A$=""
#180 NEXT F
#190 STOP 
200 CLS
205 LET S=0 
210 FOR F=0 TO 20
220 PRINT "««««««";TAB 26;"««««««"
230 NEXT F
240 PRINT AT 5,4;"f´"
250 PRINT AT 11,4;"h´"
260 FOR F=19 TO 20
270 FOR N=6 TO 25
280 PRINT AT F,N;"½"
290 NEXT N
300 NEXT F
310 FOR F=0 TO 31
320 PRINT AT 21,F;"¸"
330 NEXT F
340 PRINT AT 0,0;"‰"
350 REM PLAY ROUTINE
360 LET H=PEEK 16396+256*PEEK 16397
390 FOR T=0 TO 200
400 IF INKEY$="F" THEN GOTO 490
410 IF INKEY$<>"H" THEN GOTO 520
430 POKE 16590,113 
440 POKE 16591,1
450 LET F=USR 16586 
460 IF F=16585 THEN GOTO 600
470 IF F=1 THEN LET S=S+1
480 GOTO 520
490 POKE 16590,171 
500 POKE 16591,0 
510 GOTO 450 
520 POKE 16562,7 
530 IF RND>.2 THEN POKE 16562,0
540 LET F=USR 16514
550 IF RND>.8 THEN POKE H+(RND*19)+7,59
560 IF RND>.9 THEN POKE H+(RND*19)+7,8 
570 NEXT T 
600 LET F=USR 16633 
610 CLS 
620 PRINT ,,"ALIENS SHOT...";S
630 PRINT ,,"FROM 40 BARRELS YOU HAVE ";F 
640 LET N=F-40
650 IF N<0 THEN LET N=0
660 PRINT ,,"SCORE =";N;"*5+";S;" = ";N*5+S
670 PRINT ,,"ANOTHER GAME ? (Y/N)"
680 INPUT A$
690 LET A$=A$+" "
700 IF A$(1)="Y" THEN RUN
710 STOP
9998 SAVE"CANYON"
9999 RUN

CANYON.P

(2.11 KiB) Downloaded 152 times

[XavSnap]

"Your computer" 12/82

"Music"

Code: Select all

1 LET A=7
8 PRINT 
9 PRINT 
  10 FOR B=1 TO 5
  20 FOR N=0 TO 10
  30 PRINT "-"; 
  40 NEXT N
  45 PRINT 
  46 PRINT 
  50 NEXT B 
  60 PRINT AT 0,0;" «««" 
  70 PRINT" « «"
  80 PRINT"-«-«"
  90 PRINT" « «"
 100 PRINT"-«-«"
 110 PRINT" ««"
 120 PRINT"-««"
 130 PRINT"««««"
 140 PRINT"««-«"
 150 PRINT"««««"
 160 PRINT"-«"
 170 PRINT" «"
 180 PRINT"««"
 190 PRINT"««"
200 LET B=INT (RND*11)+1
210 PRINT AT B,A;"«"
215 IF B>=8 THEN LET B=B-7
220 LET B=(11-B)+34
230 PRINT AT 15,10;"YOUR GUESS?" 
240 INPUT A$ 
250 IF CODE A$<>B THEN PRINT AT 15,10;"«««wrong«««"
260 IF CODE A$=B  THEN PRINT AT 15,10;"«««right«««"
270 PAUSE 4E4 
275 CLS
280 RUN 
9000 SAVE "MUSIC"
9999 RUN

MUSIC.P

(1.44 KiB) Downloaded 138 times

[XavSnap]

"Your computer" 12/82

"QuickPeek"

Test a character in the PRINT AT location.

Code: Select all

1 REM [DEC: 42,14,64,78,6,0,201 ]
10 LET P =9
20 LET S = PI-PI
30 SCROLL 
40 PRINT AT 12,P;
50 LET U= USR 16514 
60 IF U <> 0 AND U <> 118 THEN GOTO VAL "200" 
70 PRINT AT 12,P;"V"
80 LET P= P+(INKEY$ = "P" AND P<25) - (INKEY$="Q" AND P>0)
90 PRINT AT 21,(RND*25)+ 1;"*"
100 LET S =S +1
110 GOTO 30
200 PRINT "SCORE:";S 

QUICKPEEK.P

(1.17 KiB) Downloaded 139 times

[XavSnap]

Your computer" 06/82

"HexConverter"

Code: Select all

10 SCROLL 
20 INPUT A$ 
30 IF A$=" " THEN RUN 
40 IF LEN A$ = 1 THEN GOTO 100 
50 LET A = (16 * (CODE A$ (1)-28)+(CODE A$ (2)-28))
60 SCROLL 
70 IF A> 255 OR A< 0 THEN GOTO 100
80 PRINT A$;" = ";CHR$ A;"IN BASIC" 
90 GOTO 10 
100 PRINT A$;" DOES NOT EXIST IN HEX."
110 GOTO 10 

HEX.P

(1.15 KiB) Downloaded 136 times

[XavSnap]

Your computer" 07/82

"Border line"

Contributor : XavSnap.

Code: Select all

1 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 ]
10 POKE 16507,CODE "l"
20 RAND USR 16514

BORDER.P

(1004 Bytes) Downloaded 133 times

[XavSnap]

Your computer" 07/82

"Clue to Clue"

Contributor : XavSnap.

Code: Select all

5 REM "ANAGRAM" 
10 REM "BY SIMON A. RAPLEY" 
15 REM "C 1982" 
20 LET N=0
25 PRINT "LOAD LETTERS" 
30 INPUT B$
35 CLS 
40 LET C$=INKEY$ 
45 LET A$=B$ 
50 LET T$=""
55 LET L=LEN A$ 
60 LET E=INT (RND*L)+1 
65 LET S$=A$(E) 
70 LET T$=T$+S$ 
75 LET A$=A$( TO E-1) +A$(E+1 TO )
80 IF A$="" THEN GOTO 90
85 GOTO 55 
90 LET N=N+1
95 IF C$="C" THEN LET N=1 
100 IF N>22 THEN SCROLL
105 IF C$="C" THEN CLS
110 PRINT T$
115 GOTO 40 

CLUE.P

(1.3 KiB) Downloaded 126 times