Help with a "Buggy" Game program

[dessony]

Hey,

Another British "Your Computer" magazine typed-in game program. January 1984. ZX-81 Plane Annoying. I need some help from some of you or from a certain magazine.

PLANE ANNOYING.zip

(27.89 KiB) Downloaded 176 times

Thank you very much in advance.

DesSony

[XavSnap]

I will have a look for a second check !

[dessony]

XavSnap,

Thank you. I would like to make this program shown in two languages. I.E. English and French.

DesSony

[XavSnap]

Something's wrong with the down cursor…
My temporary listing.
Just edit the text and save it to a TXT or BAS program.
(SAVE"PROG.TXT to save a text file)

Code: Select all

# REM 
     1  REM [HEX:\
76,76,2A,0C,40,01,6C,00,\
09,3E,08,32,21,40,3E,97,\
32,7B,40,11,11,00,06,02,\
C5,0E,08,3A,21,40,06,08,\
77,23,10,FC,3A,7B,40,06,\
08,77,23,10,FC,19,0D,20,\
EA,3E,B4,32,21,40,3E,98,\
32,7B,40,C1,10,DA,2A,0C,\
40,11,2A,00,19,22,3C,40,\
11,40,00,19,22,3E,40,3E,\
05,ED,4B,06,43,41,11,21,\
00,77,19,10,FC,2A,3C,40,\
3E,03,41,77,23,10,FC,C9,\
CD,BB,02,2C,20,FA,CD,BB,\
02,E5,C1,2C,28,F8,CD,BD,\
07,7E,FE,70,CC,25,41,FE,\
71,CC,4E,41,FE,72,CC,83,\
41,FE,73,CC,A7,41,FE,23,\
CC,D2,41,FE,22,CC,02,42,\
FE,21,CC,37,42,FE,24,CC,\
65,42,C9,2A,3E,40,ED,4B,\
06,43,11,21,00,C5,AF,ED,\
52,7E,FE,08,28,14,10,F6,\
22,3E,40,3E,05,C1,77,19,\
0D,20,FB,FE,01,D8,AF,48,\
18,F4,C1,C9,2A,3E,40,ED,\
4B,06,43,11,21,00,C5,0D,\
28,04,19,0D,20,FC,C1,C5,\
19,7E,FE,B4,28,19,10,F8,\
AF,3E,05,C1,77,ED,52,0D,\
20,FA,19,FE,01,D8,22,3E,\
40,AF,ED,52,48,18,ED,C1,\
C9,2A,3C,40,ED,4B,06,43,\
C5,2B,7E,FE,08,28,14,10,\
F8,22,3C,40,C1,3E,03,77,\
23,0D,20,FB,FE,01,D8,AF,\
48,18,F4,C1,C9,2A,3C,40,\
ED,4B,06,43,2B,C5,23,0D,\
20,FC,23,7E,FE,97,28,16,\
10,F8,C1,3E,03,77,2B,0D,\
20,FB,FE,01,D8,23,22,3C,\
40,AF,2B,48,18,EF,C1,C9,\
ED,4B,06,43,C5,2A,3C,40,\
11,21,00,19,19,E5,E5,7E,\
32,21,40,06,0F,19,7E,E3,\
77,19,19,10,F9,AF,ED,52,\
3A,21,40,77,E1,E1,23,0D,\
20,E3,C1,10,D7,C3,92,42,\
ED,4B,06,43,C5,2A,3C,40,\
11,31,02,19,11,21,00,E5,\
E5,7E,32,21,40,06,0F,AF,\
ED,52,7E,E3,77,AF,ED,52,\
ED,52,10,F6,19,3A,21,40,\
77,E1,E1,23,0D,20,E0,C1,\
10,D2,C3,92,42,ED,4B,06,\
43,11,21,00,C5,2A,3E,40,\
23,23,E5,E5,7E,32,21,40,\
06,0F,23,7E,E3,77,23,23,\
10,F9,2B,3A,21,40,77,E1,\
E1,19,0D,20,E5,C1,10,DC,\
C3,92,42,ED,4B,06,43,C5,\
2A,3E,40,11,11,00,19,11,\
21,00,E5,E5,7E,32,21,40,\
06,0F,2B,7E,E3,77,2B,2B,\
10,F9,23,3A,21,40,77,E1,\
E1,19,0D,20,E5,C1,10,D7,\
2A,0C,40,01,6C,00,09,1E,\
08,0E,08,CD,E1,42,FE,FF,\
28,35,0E,97,CD,E1,42,FE,\
FF,28,2C,01,11,00,09,1D,\
20,E7,1E,08,0E,B4,CD,E1,\
42,FE,FF,28,1A,0E,98,CD,\
E1,42,FE,FF,28,11,01,11,\
00,09,1D,20,E7,2A,40,40,\
23,22,40,40,3E,FE,C9,2A,\
40,40,23,22,40,40,C9,06,\
08,7E,B9,28,03,3E,FF,C9,\
23,10,F6,C9,21,00,00,22,\
40,40,CD,EA,40,FE,75,28,\
08,FE,FE,20,F5,01,00,00,\
C9,0E,0E,C9,02,01,3E,73,\
CD,FC,40,C9 ]

     5 CLS 
    10 PRINT TAB 8;"«plane«annoying«"
    20 PRINT ,,,,"PRESS;-",,,,"1) FOR INSTRUCTIONS.",,,"2) TO START GAME."
    30 GOSUB 1000
    40 IF I$="2" THEN GOTO 200
    50 CLS 
    55 LET A$="*****PRESS N/L TO CONTINUE*****"
    60 PRINT "THE OBJECT OF THE GAME IS TO",,,"UN-SCRAMBLE A 16 X 16 GRID OF",,,"CHARACTERS INTO ITS ORIGINAL",,,"PATTERN (EACH 8 X 8 CORNER BEING",,"COMPOSED OF A DIFFERENT",,,"ÀCHARACTERÀ)"
    70 PRINT ,,"THE COMPUTER WILL SCRAMBLE THE ",,,"PLANE IN FULL VIEW, ACCORDING",,,"TO THE LEVEL OF DIFFICULTY",,,"CHOSEN."
    80 PRINT ,,A$
    85 IF INKEY$="" THEN GOTO 85
    90 CLS 
   100 PRINT "AT THE MOST DIFFICULT LEVEL THE",,,"PLANE IS DIVIDED INTO ITS 256",,,"SEPARATE SQUARES, (IE. 16 X 16)",,,"AND AT ITS SIMPLEST, INTO 16",,,"SQUARES, (IE. 4 X 4)."
   110 PRINT ,,"THERE ARE ALSO TWO ÀMODESÀ TO",,,"CHOOSE FROM. MODE 1 PUTS EACH",,,"ROW OR COLUMN UNDER INDIVIDUAL",,,"CONTROL AND COMPLETING THE PLANE",,"IS QUITE PAINLESS."
   115 PRINT ,,A$
   120 IF INKEY$="" THEN GOTO 120
   125 CLS 
   130 PRINT "MODE 2 ALLOWS YOU ONLY TO MOVE",,,"ROWS AND COLUMNS IN ADJACENT",,,"PAIRS, MAKING THE PLANE MUCH",,,"MORE DIFFICULT TO COMPLETE."
   140 PRINT ,,"THE CURSORS ARE MOVED WITH",,,"ÀSHIFTEDÀ CURSOR CONTROL KEYS",,,"(IE. SHIFTED 8À = RIGHT)."
   150 PRINT ,,"UNSHIFTED KEYS 5-8 WILL SCROLL",,,"THE ROW OR COLUMN POINTED TO",,,"BY THE CURSOR IN THE RELEVANT",,,"DIRECTION."
   160 PRINT A$
   165 IF INKEY$="" THEN GOTO 165
   170 CLS 
   180 PRINT "THE PLANE HAS ÀWRAP-AROUNDÀ",,,"SO THAT ANYTHING SCROLLING OFF",,,"TO THE LEFT OR RIGHT RE-APPEARS",,,"AT THE OTHER SIDE.",,,,,"ÀSHIFTEDÀ 1. THIS WILL TELL YOU",,,"HOW MANY MOVES IT TOOK TO BE",,,"DEFEATED. IF YOU COMPLETE THE",,,"PLANE YOU WILL GET A MOVE COUNT",,,"AND AN OPTION TO PLAY AGAIN."
   190 PRINT ,,A$
   195 IF INKEY$="" THEN GOTO 195
   200 CLS 
   210 PRINT "PRESS;-",,,,"ÀDÀ FOR A DEMONSTRATION.",,,"ANY OTHER KEY TO PLAY."
   220 IF INKEY$="" THEN GOTO 220
   230 IF INKEY$<>"D" THEN GOTO 600
   240 LET X=4
   250 POKE 17158,X
   260 POKE 17159,4
   270 CLS 
   280 PRINT AT 0,0;"EASY MODE WITH 4 X 4 DEFINITION."
   290 PRINT AT 1,6;"½½";TAB 24;"’’";TAB 6;"½";TAB 25;"’";AT 19,6;"—";TAB 25;"“";TAB 6;"——";TAB 24;"““"
   300 LET L=USR 16516
   310 LET A$="57575757"
   320 FOR N=1 TO X
   330 FOR F=1 TO RND*8+1
   340 POKE 17161,CODE A$(INT (RND*8+1))
   345 LET L=L**N
   350 LET L=USR 17160
   360 NEXT F
   370 POKE 17161,115
   380 LET L=USR 17160
   390 POKE 17161,113
   400 LET L=USR 17160
   410 NEXT N
   420 PRINT AT 21,0;"*****PRESS N/L TO START GAME****"
   430 IF INKEY$="" THEN GOTO 430
   #500 FOR N=16514 TO 17165 STEP 8
   #505 LET A$="124"
   #510 LPRINT N;" ";
   #520 FOR B=0 TO 7
   #530 LET C=PEEK (B+N)
   #540 LPRINT CHR$ (28+INT (C/16));CHR$ (28+C-16*INT (C/16));" ";
   #550 LET X=VAL A$(VAL I$)
   #560 IF (B+N)=17165 THEN STOP 
   #570 NEXT B
   #580 LPRINT 
   #590 NEXT N
   #595 STOP 
   600 POKE 17158,X+X*(I$="2")
   610 POKE 17159,X
   620 CLS 
   630 GOSUB 2000
   635 PRINT AT 20,11;"          "
   640 IF L THEN GOTO 700
   650 PRINT AT 0,0;"COMPLETED IN - ";PEEK 16448+256*PEEK 16449;" MOVES."
   660 PRINT AT 21,0;"***PRESS N/L FOR ANOTHER GAME***"
   670 IF INKEY$<>"" THEN GOTO 670
   680 GOTO 0+680*(INKEY$="")
   700 PRINT AT 0,0;PEEK 16448+256*PEEK 16449;" MOVES.(UNFINISHED)"
   710 GOTO 660
  1000 LET I$=INKEY$
  1010 IF I$<"1" OR I$>"3" THEN GOTO 1000
  1020 RETURN 
  2000 PRINT AT 1,6;"½½";TAB 24;"’’";TAB 6;"½";TAB 25;"’";AT 19,6;"—";TAB 25;"“";TAB 6;"——";TAB 24;"““"
  2005 LET A$="57575757"
  2010 LET L=USR 16516
  2020 FOR N=1 TO 16/X-2*(I$="2")-(I$="1")
  2030 GOSUB 3000
  2040 POKE 17161,113
  2045 LET L=USR 17160
  2050 GOSUB 3000
  2060 POKE 17161,115
  2070 LET L=USR 17160
  2080 GOSUB 3000
  2090 NEXT N
  2095 PRINT AT 20,11;"SCRAMBLED"
  2100 LET L=USR 17134
  2110 RETURN 
  3000 FOR F=1 TO RND*8+1
  3010 POKE 17161,CODE A$(INT (RND*8)+1)
  3020 LET L=USR 17160
  3030 NEXT F
  3040 RETURN 
  5000 SAVE "PLANE ANNOYINg"
  5010 RUN 

PLANE ANNOYING.P

(4.85 KiB) Downloaded 174 times

I had to check the Basic program… the POKEs datas.

[dessony]

XavSnap,

The good news, I also discovered only one bad byte within the machine language section. I checked the first line and found a wrong byte. I "print peek" ed 16519 and it emitted a suspected byte as 5. So I poked 1 into 16519. I ran it again. It worked! The "cube" appeared and scrambled while running the hybrid sections together. WOW!

DesSony

[XavSnap]

Yes, only one error in the burning eyes ASM codes…
In the fist line… and the next codes are ok.
The GOTO 200 (line 40) point to zxprinter routine.

Need help to type-in other programs?

Create a new tread, and drop a type-in programs list…

[XavSnap]

http://www.users.globalnet.co.uk/~jg27p ... _name8.htm

You can send your listings to the webmaster.

Don't remember the mail… to send zipped files...

[dessony]

XavSnap,
English:
Thank you for the web links. My fingers also want to thank you for not spending long hours poking this hexadecimal onto the keyboard. I could hug you but we are too far from each other. (Just kidding! )

How about making the "Plane Annoying" program having two languages? Or making the program's content pure French?

Français:
Merci pour les liens Web. Mes doigts veulent également vous remercier de ne pas avoir passé de longues heures à pousser cet hexadécimal sur le clavier. Je pourrais te serrer dans mes bras mais nous sommes trop loin l'un de l'autre. (Je plaisante! )

Que diriez-vous de créer le programme "Plane Annoying" en deux langues? Ou rendre le contenu du programme purement français?

Thanks!/Merci!
DesSony

[XavSnap]

Or making the program's content pure French

Yes, i will post the translated lines to insert in the basic program…

[dessony]

I was right about the (Your Computer, Jan. 1984) type-in program being "buggy"! I confirmed that its original routine lines 500 to 600 did not belong there! So, I am uploading a correction here.

A Your Computer Feb. Correction Page to the Y. C. Jan. 1984's Plane Annoying program.

YourComputer_1984_02_0044.jpg (51.28 KiB) Viewed 2469 times

As for the Plane Annoying program's content translating into French, I really support it 100%. Therefore, go for it! I 'd like to see the result.

DesSony