Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape07b_c16_d90_ages_b.wav » rolf broken
rolf broken
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 » Commodore tapes » Commodore_16 » drawer_br_tape07b_c16_d90_ages_b.wav |
| Filename: | rolf broken |
| Read OK: | ✔ |
| File size: | 0B2E bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
0 SCNCLR:SYS11520:SYS11998:A=65298:X=11776:Y=12116
1 S$="S":IFS$<>"N"ANDS$<>"S"THEN1:ELSEIFS$="S"THENSCNCLR:GOTO3
2 POKEX,53:POKEX+1,57:POKEX+2,54:POKEX+3,56:POKEY,55:POKEY+1,57:POKEY+2,51:POKEY+3,52:GOTO4
3 POKEA,PEEK(A)AND251:POKEA+1,(PEEK(A+1)AND3)OR48
4 POKE55,0:POKE56,45:POKE51,0:POKE52,45:CLR:DIMA(23),B(23),J%(8):PI=1:FORI=1TO8:READJ%(I):NEXT:RESTORE:DATA43,51,51,51,40,48,48,48:A$=" ARE YOU SURE ? Y N
5 S=3072:C=1024:F=1:X=20:Y=12:N=0:H=160:K=1:L=0:POKE11849,0:U=3480:Q=1:R=0:SYS11816:SYS11850:GOSUB65:POKES+1,0:POKES+1-C,0:POKES+2-C,0
6 GOSUB7:GOTO9
7 IFJOY(1)=0THEND=PEEK(198):E=PEEK(1347):ELSED=J%(JOY(1)AND127):E=SGN(JOY(1)AND128)
8 X=X+1*-(D=51)*-(X<39):X=X-1*-(D=48)*-(X>0):Y=Y-1*-(D=43)*-(Y>0):Y=Y+1*-(D=40)*-(Y<24):P=S+X+(40*Y):W=PEEK(P):T=PEEK(P-C):RETURN
9 IFE=FTHENGOTO13
10 GOSUB11:GOTO12
11 POKEP,H:POKEP-C,N:FORI=1TO5:NEXT:POKEP,W:POKEP-C,T:RETURN
12 POKE13573,N:POKE13572,H:GOTO6
13 IFY>0ANDY<24THENPOKEP,H:POKEP-C,N:FORI=1TO50:NEXT:GOTO6
14 IFE<>FTHEN6
15 IFY=0THEN38
16 IFY=24THEN44
17 B$="SAVE"+A$:GOSUB29:GOSUB32:IFA=1THENGOSUB31:GOTO68
18 GOSUB31:GOTO4
19 SYS12269:LS=2:GOSUB24:SYS11650:SYS11576:SYS65484
20 GOTO4
21 B$="LOAD"+A$:GOSUB29:GOSUB32:IFA=1THENGOSUB31:GOTO23
22 GOTO18
23 LS=1:GOSUB24:SYS11694:SYS11576:SYS65484:GOTO81
24 GOSUB70:POKE11632,LEN(N$):FORI=1TOLEN(N$):POKE11632+I,ASC(MID$(N$,I,1)):NEXTI:SCNCLR:B$="TAPE OR DISK ? T D":GOSUB29:GOSUB32:IFA=1THENV=1
25 IFA=2THENV=8
26 POKE11649,V:IFLS=1THENSCNCLR:CHAR1,16,11,"<reverse on><flash on>LOADING<flash off>":RETURN
27 IFLS=2THENSCNCLR:CHAR1,16,11,"<reverse on><flash on>SAVING<flash off>
28 RETURN
29 FORI=1TOLEN(B$):A(I)=PEEK(I+U):B(I)=PEEK(I+U-C):POKEI+U-C,0:M=ASC(MID$(B$,I,1)):IFM>64THENM=M-64
30 POKEI+U,M:POKEI+U-C,PEEK(3008):NEXTI:RETURN
31 FORI=1TOLEN(B$):POKEI+U,A(I):POKEI+U-C,B(I):NEXTI:RETURN
32 X=30:Y=10
33 GOSUB7:GOSUB11:IFE=FTHEN35
34 GOTO33
35 IFW=25ORW=49ORW=20THENA=1:RETURN
36 IFW=14ORW=50ORW=4THENA=2:RETURN
37 GOTO33
38 IFX>1THEN42
39 IFX=1THEN61
40 IFPI=1THENSYS11520:SYS12054:PI=2:GOSUB65:GOSUB80:GOTO6
41 IFPI=2THENSYS11998:SYS11576:PI=1:GOSUB65:GOSUB80:GOTO6
42 N=PEEK(P-C):IFX>32THEN6
43 O=(NAND15):POKE11742,O:SYS11722:GOTO6
44 IFX<=32THENH=PEEK(P):GOTO6
45 G=X-32:ONGGOTO57,52,21,17,50,48,47
46 GOTO6
47 IFX=39THENSYS11850:FORJ=1TO100:NEXTJ:GOTO6
48 B$="CLEAR ARE YOU SURE ?Y N":GOSUB29:GOSUB32:IFA=1THENSCNCLR:GOTO5
49 GOTO64
50 B$="FILL"+A$:GOSUB29:GOSUB32:IFA=1THENSYS11917:GOTO5
51 GOTO64
52 IFL<5THENOO=113:GOSUB83:ELSEOO=0:GOSUB83
53 POKE65301,K+(L*16):L=L+1:IFL=8THENL=0:K=K+1
54 IFK=16THENL=7
55 IFK=17THENK=1:L=0
56 GOTO60
57 POKE65305,Q+(R*16):R=R+1:IFR=8THENR=0:Q=Q+1
58 IFQ=16THENR=7
59 IFQ=17THENQ=1:R=0
60 GOSUB80:GOTO6
61 B$="COPY TO PICTURE ":B$=B$+CHR$(3-PI):B$=B$+" ? Y N":GOSUB29:GOSUB32:IFA=1THENX=20:Y=12:GOTO63
62 IFA=2THENGOSUB31:X=20:Y=12:GOTO6
63 GOSUB31:IFPI=1THENSYS11998:ELSESYS11520
64 GOSUB31:GOTO6
65 IFPI=1THENPOKE3072,129:ELSEPOKE3072,130
66 RETURN
67 SYS12138:POKE11659,25:POKE11663,31:LS=2:GOSUB24:SYS11650:SYS11576:POKE11659,154:POKE11663,23:GOTO20
68 B$="1 PIC OR 2 ? 1 2":GOSUB29:GOSUB32:IFA=1THENGOSUB31:GOTO19
69 GOSUB31:GOTO67
70 GOSUB85:CHAR1,0,0,"<clr><rev off>@ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789←*":X=39:Y=0:CHAR1,11,5,"<reverse on><flash on>PICTURE NAME?<flash off>":CHAR1,9,7,"<rev off> ← TO ERASE":CHAR1,11,9,"<rev off> @ TO FINISH":CHAR1,11,16,"
71 GOSUB7:GOSUB11:IFE=FTHEN73
72 GOTO71
73 IFW>31THENT$=CHR$(W):GOTO75
74 T$=CHR$(W+64)
75 IFT$=CHR$(64)THENRETURN
76 IFT$=CHR$(95)ANDLEN(N$)=0THEN71
77 IFT$=CHR$(95)THENN$=LEFT$(N$,LEN(N$)-1):PRINT"<cursor left> <cursor left>";:GOSUB80:GOTO71
78 PRINTT$;:N$=N$+T$:GOSUB80:IFLEN(N$)<16THEN71
79 RETURN
80 FORI=1TO150:NEXT:RETURN
81 IFPEEK(6023)=173THEN84:ELSEZZ=PEEK(7959):YY=PEEK(7960)
82 POKE65301,ZZ:POKE65305,YY:GOTO4
83 FORI=0TO39:POKE3008+I,OO:NEXT:POKE2048,OO:POKE2049,OO:RETURN
84 ZZ=PEEK(6036):YY=PEEK(6037):SYS11520:SCNCLR:SYS11998:SYS11576:GOTO82
85 COLOR1,(PEEK(3008)AND15)+1:RETURN
- �:�11520:�11998:A�65298:X�11776:Y�12116 Y S$�"S":�S$��"N"�S$��"S"�1:ՋS$�"S"��:�3 � �X,53:�X�1,57:�X�2,54:�X�3,56:�Y,55:�Y�1,57:�Y�2,51:�Y�3,52:�4 � �A,�(A)�251:�A�1,(�(A�1)�3)�48 : �55,0:�56,45:�51,0:�52,45:�:�A(23),B(23),J%(8):PI�1:�I�1�8:�J%(I):�:�:�43,51,51,51,40,48,48,48:A$�" ARE YOU SURE ? Y N � S�3072:C�1024:F�1:X�20:Y�12:N�0:H�160:K�1:L�0:�11849,0:U�3480:Q�1:R�0:�11816:�11850:�65:�S�1,0:�S�1�C,0:�S�2�C,0 � �7:�9 � ��(1)�0�D��(198):E��(1347):�D�J%(�(1)�127):E��(�(1)�128) o X�X�1��(D�51)��(X�39):X�X�1��(D�48)��(X�0):Y�Y�1��(D�43)��(Y�0):Y�Y�1��(D�40)��(Y�24):P�S�X�(40�Y):W��(P):T��(P�C):� | �E�F��13 � �11:�12 � �P,H:�P�C,N:�I�1�5:�:�P,W:�P�C,T:� � �13573,N:�13572,H:�6 � �Y�0�Y�24��P,H:�P�C,N:�I�1�50:�:�6 � �E��F�6 �Y�0�38 �Y�24�44 : B$�"SAVE"�A$:�29:�32:�A�1��31:�68 E �31:�4 n �12269:LS�2:�24:�11650:�11576:�65484 u �4 � B$�"LOAD"�A$:�29:�32:�A�1��31:�23 � �18 � LS�1:�24:�11694:�11576:�65484:�81 2 �70:�11632,�(N$):�I�1��(N$):�11632�I,�(�(N$,I,1)):�I:�:B$�"TAPE OR DISK ? T D":�29:�32:�A�1�V�1 ? �A�2�V�8 l �11649,V:�LS�1��:�1,16,11,"�LOADING�":� � �LS�2��:�1,16,11,"�SAVING� � � � �I�1��(B$):A(I)��(I�U):B(I)��(I�U�C):�I�U�C,0:M��(�(B$,I,1)):�M�64�M�M�64 � �I�U,M:�I�U�C,�(3008):�I:� ) �I�1��(B$):�I�U,A(I):�I�U�C,B(I):�I:� 7 X�30:Y�10 J! �7:�11:�E�F�35 R"