Home » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav » unscramble
unscramble
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 » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav |
| Filename: | unscramble |
| Read OK: | ✔ |
| File size: | 0A09 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 COLOR0,2:COLOR4,2:VOL8
20 DIMN(3,3):DIMNZ$(15)
30 X=0:Y=0:C2$="":C3$=""
40 TP$="🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸":S$="🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>"
50 CX$=" <cursor down><cursor left> <cursor down><cursor left> <cursor down><cursor left> <cursor down><cursor left> <cursor left><cursor left> <cursor left><cursor left> <cursor left><cursor left> <cursor left><cursor left> <cursor up><cursor left> <cursor up><cursor left> <cursor up><cursor left> "
60 CD$="<home><cursor down><cursor down><cursor down><cursor down>":CR$="<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>":CS$="╭🭸🭸🭸╮<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>🭲<cursor down><cursor left>╯<cursor left><cursor left>🭸<cursor left><cursor left>🭸<cursor left><cursor left>🭸<cursor left><cursor left>╰<cursor up><cursor left>🭲<cursor up><cursor left>🭲<cursor up><cursor left>🭲"
70 BD$="<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down>":BR$="<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>"
80 COLOR1,3,3:PRINT"<clr><cursor down><cursor right><cursor right><cursor right><cursor right>┬ ┬┬ ┬╭🭸╮╭🭸╮┌🭸╮╭🭸╮╭╮╭╮┌🭸╮┬ ┌🭸"
90 PRINT"<cursor right><cursor right><cursor right><cursor right>🭲 🭲🭲╲🭲╰🭸╮🭲 ├┬╯├🭸┤🭲╰╯🭲├🭸┤🭲 ├🭸"
100 PRINT"<cursor right><cursor right><cursor right><cursor right>╰🭸╯┴ ┴╰🭸╯╰🭸╯┴╰ ┴ ┴┴ ┴└🭸╯└🭸└🭸 ●"
110 COLOR1,9,4:PRINT"<cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>INSTRUCTIONS"
120 PRINT"<cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>'I' CURSOR LEFT"
130 PRINT"<cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>'P' CURSOR RIGHT"
140 PRINT"<cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>'Q' CURSOR UP"
150 PRINT"<cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>'Z' CURSOR DOWN"
160 PRINT"<cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>SPACE SHIFT PIECES"
170 PRINT"<cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>(HIT RETURN TO START)"
180 GETA$:IFASC(A$)<>13THEN180
190 NZ$(0)="<white><reverse on> <cursor down><cursor left><cursor left><cursor left> <cursor down><cursor left><cursor left><cursor left> "
200 NZ$(1)="<black><reverse on> <cursor down><cursor left><cursor left><cursor left> 1 <cursor down><cursor left><cursor left><cursor left> "
210 NZ$(2)="<red><reverse on> <cursor down><cursor left><cursor left><cursor left> 2 <cursor down><cursor left><cursor left><cursor left> "
220 NZ$(3)="<cyan><reverse on> <cursor down><cursor left><cursor left><cursor left> 3 <cursor down><cursor left><cursor left><cursor left> "
230 NZ$(4)="<purple><reverse on> <cursor down><cursor left><cursor left><cursor left> 4 <cursor down><cursor left><cursor left><cursor left> "
240 NZ$(5)="<green><reverse on> <cursor down><cursor left><cursor left><cursor left> 5 <cursor down><cursor left><cursor left><cursor left> "
250 NZ$(6)="<blue><reverse on> <cursor down><cursor left><cursor left><cursor left> 6 <cursor down><cursor left><cursor left><cursor left> "
260 NZ$(7)="<light gray><reverse on> <cursor down><cursor left><cursor left><cursor left> 7 <cursor down><cursor left><cursor left><cursor left> "
270 NZ$(8)="<orange><reverse on> <cursor down><cursor left><cursor left><cursor left> 8 <cursor down><cursor left><cursor left><cursor left> "
280 NZ$(9)="<brown><reverse on> <cursor down><cursor left><cursor left><cursor left> 9 <cursor down><cursor left><cursor left><cursor left> "
290 NZ$(10)="<pink><reverse on> <cursor down><cursor left><cursor left><cursor left>10 <cursor down><cursor left><cursor left><cursor left> "
300 NZ$(11)="<dark gray><reverse on> <cursor down><cursor left><cursor left><cursor left>11 <cursor down><cursor left><cursor left><cursor left> "
310 NZ$(12)="<medium gray><reverse on> <cursor down><cursor left><cursor left><cursor left>12 <cursor down><cursor left><cursor left><cursor left> "
320 NZ$(13)="<light green><reverse on> <cursor down><cursor left><cursor left><cursor left>13 <cursor down><cursor left><cursor left><cursor left> "
330 NZ$(14)="<light blue><reverse on> <cursor down><cursor left><cursor left><cursor left>14 <cursor down><cursor left><cursor left><cursor left> "
340 NZ$(15)="<light gray><reverse on> <cursor down><cursor left><cursor left><cursor left>15 <cursor down><cursor left><cursor left><cursor left> "
350 FORI=0TO3:FORJ=0TO3:N(I,J)=I*4+J:NEXTJ,I
360 PRINT"<clr><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>UNSCRAMBLE!":GOSUB550
370 X1=0:Y1=0:X=0:Y=0:Z=20+INT(RND(0)*25)
380 FORJ=1TOZ:X=INT(RND(0)*4):GOSUB620:Y=INT(RND(0)*4):GOSUB620:NEXT
390 COLOR1,3,3:PRINTCD$;CR$;"<cursor right><cursor down>";C2$;C3$;CS$;"<home>":X=0:Y=0
400 GETA$:IFA$<>" "ANDA$<>"P"ANDA$<>"I"ANDA$<>"Q"ANDA$<>"Z"THEN400
410 IFA$=" "AND(X1=XORY1=Y)THENGOSUB620:GOTO400
420 PRINTCD$;CR$;"<cursor down><cursor right>";C2$;C3$;CX$
430 IFA$<>" "THENSOUND1,400,7
440 IFA$="P"THENX=X+1:C2$=C2$+"<cursor right><cursor right><cursor right><cursor right>":IFX>3THENX=0:C2$=""
450 IFA$<>"I"THEN480
460 X=X-1:IFX>=0THENC2$=LEFT$(C2$,X*4):GOTO520
470 X=3:C2$="<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>":GOTO520
480 IFA$<>"Q"THEN510
490 Y=Y-1:IFY>=0THENC3$=LEFT$(C3$,Y*4):GOTO520
500 Y=3:C3$="<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down>"
510 IFA$="Z"THENY=Y+1:C3$=C3$+"<cursor down><cursor down><cursor down><cursor down>":IFY>3THENY=0:C3$=""
520 COLOR1,3,3:PRINTCD$;CR$;"<cursor down><cursor right>";C2$;C3$;CS$
530 GOTO400
540 END
550 COLOR1,1:PRINTCD$;CR$;"╭";TP$;"╮<cursor down><cursor left>";S$;
560 PRINTCD$;CR$;"<cursor down>";S$;"╰";TP$;"╯";
570 PRINTCD$;"<cursor down><cursor down><cursor down><cursor down>";
580 FORI=0TO3:PRINTCR$;"<cursor right><cursor right>";:FORJ=0TO3
590 PRINT"<cursor up><cursor up>";NZ$(I*4+J);"<rev off> ";:N(I,J)=I*4+J
600 NEXTJ:PRINT:PRINT:PRINT:PRINT:NEXTI
610 RETURN
620 IFX1=XANDY1=YTHENRETURN
630 IFY<Y1THENFORI=Y1-1TOYSTEP-1:N(I+1,X)=N(I,X):GOSUB680:Y1=Y:NEXT
640 IFY>Y1THENFORI=Y1+1TOY:N(I-1,X)=N(I,X):GOSUB690:NEXT:Y1=Y:RETURN
650 IFX<X1THENFORI=X1-1TOXSTEP-1:N(Y,I+1)=N(Y,I):GOSUB710:NEXT:X1=X:RETURN
660 IFX>X1THENFORI=X1+1TOX:N(Y,I-1)=N(Y,I):GOSUB720:NEXT:X1=X:RETURN
670 PRINTBD$;BR$;NZ$(0):COLOR1,1:RETURN
680 Z$=BD$:BD$=LEFT$(BD$,I*4+7):GOTO700
690 Z$=BD$:BD$=BD$+"<cursor down><cursor down><cursor down><cursor down>"
700 SOUND1,1000-5*I,2:GOSUB670:PRINTZ$;BR$;NZ$(N(I,X)):RETURN
710 Z$=BR$:BR$=LEFT$(BR$,I*4+12):GOTO730
720 Z$=BR$:BR$=BR$+"<cursor right><cursor right><cursor right><cursor right>"
730 SOUND1,970+5*I,2:GOSUB670:PRINTBD$;Z$;NZ$(N(Y,I)):RETURN
�0,2:�4,2:�8 ' �N(3,3):�NZ$(15) A X�0:Y�0:C2$�"":C3$�""