ZX81 Listing for catanim.p

CAT ANIMATION*SLR/2023 (catanim.p)

A simple cat animation from data original sourced from an 1984 book called “Create Your Own - Games Computers Play” by Keith S. Reid-Green, on pages 57 - 58. I converted the code from GW-BASIC to ZX81 BASIC. Quite a bit different as the ZX81 doesn’t have DATA or READ commands.

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 19391
VARS  : 20184
E-LINE: 20185
STKBOT: 20185
STKEND: 20185

LEGEND

9999 means line number
PRINT means treat as KEYWORD P

PROGRAM LISTING

  10 REM *****CAT ANIMATION*****
  11 REM **KEITH S. REID-GREEN**
  12 REM *ZX81 VER. BY SLR/2023*
  20 CLS
  30 PRINT AT 13,0;"úúúúúúúúúúúú
úúúúúúúúúúúúúúúúúúúú"
  40 DIM A$(6,416)
  50 LET A$(1)="                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                "
  60 LET A$(2)="                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                "
  70 LET A$(3)="                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                "
  80 LET A$(4)="                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                "
  90 LET A$(5)="                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                "
 100 LET A$(6)="                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                
                "
 110 FOR I=1 TO 6
 120 PRINT AT 0,0;A$(I)
 130 NEXT I
 140 GOTO 110
 150 SAVE "CATANIM"
 160 RUN