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"