Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape06b_c15_acorn_woozbase.wav » PRINT_S1

PRINT_S1

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape06b_c15_acorn_woozbase.wav
Filename: PRINT_S1
Read OK: ✔
File size: 0349 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
    5 VDU 23,28,255,255,255,255,255,255,255,255
   10 REM ******************
   20 REM * PRINTER *SPOOL *
   30 REM ******************
   40 MODE 6
   50 DIM D%(5,3,8)
   60 ON ERROR GOTO 350
   70 THIS IS AN ERROR!!
   80 Y=1:Y2=1
   90 A$=GET$
  100 IF A$=" "THEN PROC_fill
  110 IF A$="Z"THEN Y=Y+1
  120 IF A$="X"THEN Y=Y-1
  130 IF A$=":"THEN Y2=Y2+1
  140 IF A$="/"THEN Y2=Y2-1
  150 IF Y>8 THEN Y=8
  160 IF Y<1 THEN Y=1
  170 IF Y2>8 THEN Y2=8
  180 IF Y2<1 THEN Y2=1
  190 GOTO 90
  200 DEFPROC_fill
  205 PRINTTAB(0,0);
  210 IF Y2=0 THEN 250
  220 FOR lo=1 TO 8-Y2
  230 PRINT
  240 NEXT
  250 PRINT;SPC(8-Y);
  260 PRINT;CHR$(128);
  270 IF Y=1 THEN 320
  280 nu=1
  290 FOR lo=1 TO Y
  300 nu=nu*2
  310 NEXT
  320 D%(Z,X,8-Y2)=D%(Z,X,8=Y2)+nu
  330 ENDPROC
  350 CLS
  360 PRINT"MENU"
  370 PRINT"1.SAVE"
  380 PRINT"2.DESIGN"
  390 A$=GET$
  400 IF A$="1"THEN PROC_save
  410 IF A$="2"THEN INPUT"SQUARE";Z,X:CLS:GOTO 80
  420 GOTO 390
  425 DEFPROC_save
  430 *SPOOL SIGN
  440 line=1000
  450 FOR A=1 TO 5:FOR B=1 TO 3:FOR C=1 TO 8
  460 PRINT;line;" DATA ";D%(A,B,C)
  470 line=line+1
  480 NEXT:NEXT:NEXT

, � 23,28,255,255,255,255,255,255,255,255

 � ******************
 � * PRINTER *SPOOL *
 � ******************
( � 6
2 � D%(5,3,8)
< � � � �D^A
F THIS IS AN �!!
P
 Y=1:Y2=1
Z	 A$=�
d � A$=" "� �_fill
n � A$="Z"� Y=Y+1
x � A$="X"� Y=Y-1
� � A$=":"� Y2=Y2+1
� � A$="/"� Y2=Y2-1
� � Y>8 � Y=8
� � Y<1 � Y=1
� � Y2>8 � Y2=8
� � Y2<1 � Y2=1
� � �DZ@
� ��_fill
� �0,0);
� � Y2=0 � �dz@
� � lo=1 � 8-Y2
� �
� �
� �;�(8-Y);
 �;�(128);
 � Y=1 � �D@A
	 nu=1
" � lo=1 � Y
, nu=nu*2
6 �
@! D%(Z,X,8-Y2)=D%(Z,X,8=Y2)+nu
J �
^ �
h �"MENU"
r �"1.SAVE"
| �"2.DESIGN"
�	 A$=�
� � A$="1"� �_save
�% � A$="2"� �"SQUARE";Z,X:�:� �DP@
� � �tFA
� ��_save
� *SPOOL SIGN
� line=1000
�" � A=1 � 5:� B=1 � 3:� C=1 � 8
� �;line;" DATA ";D%(A,B,C)
� line=line+1
�
 �:�:�
�
00000000  0d 00 05 2c 20 ef 20 32  33 2c 32 38 2c 32 35 35  |..., . 23,28,255|
00000010  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
00000020  2c 32 35 35 2c 32 35 35  2c 32 35 35 0d 00 0a 19  |,255,255,255....|
00000030  20 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | . *************|
00000040  2a 2a 2a 2a 2a 0d 00 14  19 20 f4 20 2a 20 50 52  |*****.... . * PR|
00000050  49 4e 54 45 52 20 2a 53  50 4f 4f 4c 20 2a 0d 00  |INTER *SPOOL *..|
00000060  1e 19 20 f4 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.. . ***********|
00000070  2a 2a 2a 2a 2a 2a 2a 0d  00 28 08 20 eb 20 36 0d  |*******..(. . 6.|
00000080  00 32 10 20 de 20 44 25  28 35 2c 33 2c 38 29 0d  |.2. . D%(5,3,8).|
00000090  00 3c 0f 20 ee 20 85 20  e5 20 8d 44 5e 41 0d 00  |.<. . . . .D^A..|
000000a0  46 13 20 54 48 49 53 20  49 53 20 41 4e 20 85 21  |F. THIS IS AN .!|
000000b0  21 0d 00 50 0d 20 59 3d  31 3a 59 32 3d 31 0d 00  |!..P. Y=1:Y2=1..|
000000c0  5a 09 20 41 24 3d be 0d  00 64 15 20 e7 20 41 24  |Z. A$=...d. . A$|
000000d0  3d 22 20 22 8c 20 f2 5f  66 69 6c 6c 0d 00 6e 14  |=" ". ._fill..n.|
000000e0  20 e7 20 41 24 3d 22 5a  22 8c 20 59 3d 59 2b 31  | . A$="Z". Y=Y+1|
000000f0  0d 00 78 14 20 e7 20 41  24 3d 22 58 22 8c 20 59  |..x. . A$="X". Y|
00000100  3d 59 2d 31 0d 00 82 16  20 e7 20 41 24 3d 22 3a  |=Y-1.... . A$=":|
00000110  22 8c 20 59 32 3d 59 32  2b 31 0d 00 8c 16 20 e7  |". Y2=Y2+1.... .|
00000120  20 41 24 3d 22 2f 22 8c  20 59 32 3d 59 32 2d 31  | A$="/". Y2=Y2-1|
00000130  0d 00 96 10 20 e7 20 59  3e 38 20 8c 20 59 3d 38  |.... . Y>8 . Y=8|
00000140  0d 00 a0 10 20 e7 20 59  3c 31 20 8c 20 59 3d 31  |.... . Y<1 . Y=1|
00000150  0d 00 aa 12 20 e7 20 59  32 3e 38 20 8c 20 59 32  |.... . Y2>8 . Y2|
00000160  3d 38 0d 00 b4 12 20 e7  20 59 32 3c 31 20 8c 20  |=8.... . Y2<1 . |
00000170  59 32 3d 31 0d 00 be 0b  20 e5 20 8d 44 5a 40 0d  |Y2=1.... . .DZ@.|
00000180  00 c8 0c 20 dd f2 5f 66  69 6c 6c 0d 00 cd 0c 20  |... .._fill.... |
00000190  f1 8a 30 2c 30 29 3b 0d  00 d2 12 20 e7 20 59 32  |..0,0);.... . Y2|
000001a0  3d 30 20 8c 20 8d 64 7a  40 0d 00 dc 12 20 e3 20  |=0 . .dz@.... . |
000001b0  6c 6f 3d 31 20 b8 20 38  2d 59 32 0d 00 e6 06 20  |lo=1 . 8-Y2.... |
000001c0  f1 0d 00 f0 06 20 ed 0d  00 fa 0e 20 f1 3b 89 28  |..... ..... .;.(|
000001d0  38 2d 59 29 3b 0d 01 04  0e 20 f1 3b bd 28 31 32  |8-Y);.... .;.(12|
000001e0  38 29 3b 0d 01 0e 11 20  e7 20 59 3d 31 20 8c 20  |8);.... . Y=1 . |
000001f0  8d 44 40 41 0d 01 18 09  20 6e 75 3d 31 0d 01 22  |.D@A.... nu=1.."|
00000200  0f 20 e3 20 6c 6f 3d 31  20 b8 20 59 0d 01 2c 0c  |. . lo=1 . Y..,.|
00000210  20 6e 75 3d 6e 75 2a 32  0d 01 36 06 20 ed 0d 01  | nu=nu*2..6. ...|
00000220  40 21 20 44 25 28 5a 2c  58 2c 38 2d 59 32 29 3d  |@! D%(Z,X,8-Y2)=|
00000230  44 25 28 5a 2c 58 2c 38  3d 59 32 29 2b 6e 75 0d  |D%(Z,X,8=Y2)+nu.|
00000240  01 4a 06 20 e1 0d 01 5e  06 20 db 0d 01 68 0c 20  |.J. ...^. ...h. |
00000250  f1 22 4d 45 4e 55 22 0d  01 72 0e 20 f1 22 31 2e  |."MENU"..r. ."1.|
00000260  53 41 56 45 22 0d 01 7c  10 20 f1 22 32 2e 44 45  |SAVE"..|. ."2.DE|
00000270  53 49 47 4e 22 0d 01 86  09 20 41 24 3d be 0d 01  |SIGN".... A$=...|
00000280  90 15 20 e7 20 41 24 3d  22 31 22 8c 20 f2 5f 73  |.. . A$="1". ._s|
00000290  61 76 65 0d 01 9a 25 20  e7 20 41 24 3d 22 32 22  |ave...% . A$="2"|
000002a0  8c 20 e8 22 53 51 55 41  52 45 22 3b 5a 2c 58 3a  |. ."SQUARE";Z,X:|
000002b0  db 3a e5 20 8d 44 50 40  0d 01 a4 0b 20 e5 20 8d  |.:. .DP@.... . .|
000002c0  74 46 41 0d 01 a9 0c 20  dd f2 5f 73 61 76 65 0d  |tFA.... .._save.|
000002d0  01 ae 10 20 2a 53 50 4f  4f 4c 20 53 49 47 4e 0d  |... *SPOOL SIGN.|
000002e0  01 b8 0e 20 6c 69 6e 65  3d 31 30 30 30 0d 01 c2  |... line=1000...|
000002f0  22 20 e3 20 41 3d 31 20  b8 20 35 3a e3 20 42 3d  |" . A=1 . 5:. B=|
00000300  31 20 b8 20 33 3a e3 20  43 3d 31 20 b8 20 38 0d  |1 . 3:. C=1 . 8.|
00000310  01 cc 1e 20 f1 3b 6c 69  6e 65 3b 22 20 44 41 54  |... .;line;" DAT|
00000320  41 20 22 3b 44 25 28 41  2c 42 2c 43 29 0d 01 d6  |A ";D%(A,B,C)...|
00000330  10 20 6c 69 6e 65 3d 6c  69 6e 65 2b 31 0d 01 e0  |. line=line+1...|
00000340  0a 20 ed 3a ed 3a ed 0d  ff                       |. .:.:...|
00000349
PRINT_S1.m0
PRINT_S1.m1
PRINT_S1.m2
PRINT_S1.m4
PRINT_S1.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .