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$�""