Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape06b_c15_acorn_woozbase.wav » Blockable!
Blockable!
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: | Blockable! |
| Read OK: | ❌ |
| File size: | 02D5 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
File contents
100 PRINTTAB(13,10);"7.Print entrys" 110 PRINTTAB(13,11);"8.Print groups" 120 A$=GET$:IF A$="1"THEN ?&3000=&30:?&3001=85:d=1:PROCnew 125 IF d=0 THEN VDU7:GOTO 20 130 IF A$="2"THEN PROCadd 140 IF A$="3"THEN PROCout 150 IF A$="4"THEN PROCin 160 IF A$="5"THEN PROCdel 170 IF A$="6"THEN PROChed 180 IF A$="7"THEN PROCall 190 IF A$="8"THEN PROCgro 200 GOTO 20 210 DEFPROCcls:CLS 220 PRINTTAB(7,23);"Bytes left:";&6000-(?&3000*256+?&3001):ENDPROC 230 DEFPROCout 240 PROCcls:INPUTTAB(14,12);"Filename";f$ 250 CLS:t$=STR$~(?&3000*256+?&3001) 260 OSCLI"SAVE "+f$+" 3000 "+t$ 270 ENDPROC 280 DEFPROCin 290 PROCcls:INPUTTAB(14,12);"Filename";f$ 300 CLS:OSCLI"LOAD "+f$ 310 ENDPROC 320 DEFPROCnew:PROCcls 330 INPUT"Number of fields";n 340 IF n>7 THEN PRINT"7 maximum":GOTO330 350 ?&3002=n:FORlo=1 TO n 360 INPUT"Enter field title";t$ 370 FORlob=0 TO 9:?(&3003+lob*lo)=ASC((MID$(t$,lob,1))):NEXT,:ENDPROC 380 DEFPROCadd:PROCcls 390 PRINTTAB(0,0):FORlo=1 TO n
d �13,10);"7.Print entrys" n �13,11);"8.Print groups" x1 A$=�:� A$="1"� ?&3000=&30:?&3001=85:d=1:�new } � d=0 � �7:� �TT@ � � A$="2"� �add � � A$="3"� �out � � A$="4"� �in � � A$="5"� �del � � A$="6"� �hed � � A$="7"� �all � � A$="8"� �gro � � �TT@ � ��cls:� �6 �7,23);"Bytes left:";&6000-(?&3000*256+?&3001):� � ��out � �cls:�14,12);"Filename";f$ � �:t$=�~(?&3000*256+?&3001) �"SAVE "+f$+" 3000 "+t$ � ��in " �cls:�14,12);"Filename";f$ , �:�"LOAD "+f$ 6 � @ ��new:�cls J �"Number of fields";n T � n>7 � �"7 maximum":�DJA ^ ?&3002=n:�lo=1 � n h �"Enter field title";t$ r4 �lob=0 � 9:?(&3003+lob*lo)=�((�t$,lob,1))):�,:� | ��add:�cls � �0,0):�lo=1 � n �
00000000 0d 00 64 1e 20 f1 8a 31 33 2c 31 30 29 3b 22 37 |..d. ..13,10);"7| 00000010 2e 50 72 69 6e 74 20 65 6e 74 72 79 73 22 0d 00 |.Print entrys"..| 00000020 6e 1e 20 f1 8a 31 33 2c 31 31 29 3b 22 38 2e 50 |n. ..13,11);"8.P| 00000030 72 69 6e 74 20 67 72 6f 75 70 73 22 0d 00 78 31 |rint groups"..x1| 00000040 20 41 24 3d be 3a e7 20 41 24 3d 22 31 22 8c 20 | A$=.:. A$="1". | 00000050 3f 26 33 30 30 30 3d 26 33 30 3a 3f 26 33 30 30 |?&3000=&30:?&300| 00000060 31 3d 38 35 3a 64 3d 31 3a f2 6e 65 77 0d 00 7d |1=85:d=1:.new..}| 00000070 16 20 e7 20 64 3d 30 20 8c 20 ef 37 3a e5 20 8d |. . d=0 . .7:. .| 00000080 54 54 40 0d 00 82 13 20 e7 20 41 24 3d 22 32 22 |TT@.... . A$="2"| 00000090 8c 20 f2 61 64 64 0d 00 8c 13 20 e7 20 41 24 3d |. .add.... . A$=| 000000a0 22 33 22 8c 20 f2 6f 75 74 0d 00 96 12 20 e7 20 |"3". .out.... . | 000000b0 41 24 3d 22 34 22 8c 20 f2 69 6e 0d 00 a0 13 20 |A$="4". .in.... | 000000c0 e7 20 41 24 3d 22 35 22 8c 20 f2 64 65 6c 0d 00 |. A$="5". .del..| 000000d0 aa 13 20 e7 20 41 24 3d 22 36 22 8c 20 f2 68 65 |.. . A$="6". .he| 000000e0 64 0d 00 b4 13 20 e7 20 41 24 3d 22 37 22 8c 20 |d.... . A$="7". | 000000f0 f2 61 6c 6c 0d 00 be 13 20 e7 20 41 24 3d 22 38 |.all.... . A$="8| 00000100 22 8c 20 f2 67 72 6f 0d 00 c8 0b 20 e5 20 8d 54 |". .gro.... . .T| 00000110 54 40 0d 00 d2 0c 20 dd f2 63 6c 73 3a db 0d 00 |T@.... ..cls:...| 00000120 dc 36 20 f1 8a 37 2c 32 33 29 3b 22 42 79 74 65 |.6 ..7,23);"Byte| 00000130 73 20 6c 65 66 74 3a 22 3b 26 36 30 30 30 2d 28 |s left:";&6000-(| 00000140 3f 26 33 30 30 30 2a 32 35 36 2b 3f 26 33 30 30 |?&3000*256+?&300| 00000150 31 29 3a e1 0d 00 e6 0a 20 dd f2 6f 75 74 0d 00 |1):..... ..out..| 00000160 f0 20 20 f2 63 6c 73 3a e8 8a 31 34 2c 31 32 29 |. .cls:..14,12)| 00000170 3b 22 46 69 6c 65 6e 61 6d 65 22 3b 66 24 0d 00 |;"Filename";f$..| 00000180 fa 1f 20 db 3a 74 24 3d c3 7e 28 3f 26 33 30 30 |.. .:t$=.~(?&300| 00000190 30 2a 32 35 36 2b 3f 26 33 30 30 31 29 0d 01 04 |0*256+?&3001)...| 000001a0 1c 20 ff 22 53 41 56 45 20 22 2b 66 24 2b 22 20 |. ."SAVE "+f$+" | 000001b0 33 30 30 30 20 22 2b 74 24 0d 01 0e 06 20 e1 0d |3000 "+t$.... ..| 000001c0 01 18 09 20 dd f2 69 6e 0d 01 22 20 20 f2 63 6c |... ..in.." .cl| 000001d0 73 3a e8 8a 31 34 2c 31 32 29 3b 22 46 69 6c 65 |s:..14,12);"File| 000001e0 6e 61 6d 65 22 3b 66 24 0d 01 2c 12 20 db 3a ff |name";f$..,. .:.| 000001f0 22 4c 4f 41 44 20 22 2b 66 24 0d 01 36 06 20 e1 |"LOAD "+f$..6. .| 00000200 0d 01 40 0f 20 dd f2 6e 65 77 3a f2 63 6c 73 0d |..@. ..new:.cls.| 00000210 01 4a 1a 20 e8 22 4e 75 6d 62 65 72 20 6f 66 20 |.J. ."Number of | 00000220 66 69 65 6c 64 73 22 3b 6e 0d 01 54 1f 20 e7 20 |fields";n..T. . | 00000230 6e 3e 37 20 8c 20 f1 22 37 20 6d 61 78 69 6d 75 |n>7 . ."7 maximu| 00000240 6d 22 3a e5 8d 44 4a 41 0d 01 5e 17 20 3f 26 33 |m":..DJA..^. ?&3| 00000250 30 30 32 3d 6e 3a e3 6c 6f 3d 31 20 b8 20 6e 0d |002=n:.lo=1 . n.| 00000260 01 68 1c 20 e8 22 45 6e 74 65 72 20 66 69 65 6c |.h. ."Enter fiel| 00000270 64 20 74 69 74 6c 65 22 3b 74 24 0d 01 72 34 20 |d title";t$..r4 | 00000280 e3 6c 6f 62 3d 30 20 b8 20 39 3a 3f 28 26 33 30 |.lob=0 . 9:?(&30| 00000290 30 33 2b 6c 6f 62 2a 6c 6f 29 3d 97 28 28 c1 74 |03+lob*lo)=.((.t| 000002a0 24 2c 6c 6f 62 2c 31 29 29 29 3a ed 2c 3a e1 0d |$,lob,1))):.,:..| 000002b0 01 7c 0f 20 dd f2 61 64 64 3a f2 63 6c 73 0d 01 |.|. ..add:.cls..| 000002c0 86 15 20 f1 8a 30 2c 30 29 3a e3 6c 6f 3d 31 20 |.. ..0,0):.lo=1 | 000002d0 b8 20 6e 0d ff |. n..| 000002d5
Blockable!.m0
Blockable!.m1
Blockable!.m2
Blockable!.m4
Blockable!.m5
.