Home » Personal collection » Commodore disks » disk30b2_loadstar_131.d64 » puzzle page 31
puzzle page 31
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 disks » disk30b2_loadstar_131.d64 |
Filename: | puzzle page 31 |
Read OK: | ✔ |
File size: | 14CC bytes |
Load address: | 4001 |
Exec address: | 0000 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Personal collection » Commodore disks » disk30b2_loadstar_131.d64 » puzzle page 31
- Personal collection » Commodore disks » disk30b3_loadstar_131.d64 » puzzle page 31
- Personal collection » Commodore disks » disk30b_loadstar_131.d64 » puzzle page 31
File contents
1 POKE55,0:POKE56,128:CLR 2 POKE53281,0:POKE53280,0:PRINTCHR$(147)CHR$(14)CHR$(8); 3 DV=PEEK(186):IFDV<8THENDV=8 4 POKE53272,29 5 DIM M$(11),R$(4):F=0:FF=0:S=54272:GOSUB9900 6 FORI=1TO4:READR$(I):NEXT 7 DATA "🭻EAD IT ","🭻UN IT ","🭸REDITS " 8 DATA "╲AIN ╲ENU " 9 FORI=1TO10:READM$(I):NEXT 10 DATA "○ARM ╭P 🭸ROSSWORD " 11 DATA "🭽N 🭲ROADWAY " 12 DATA "♥IDE BY ♥IDE " 13 DATA "♠T THE ╲OVIES " 14 DATA "🭲Y THE ╱UMBERS " 15 DATA "🭸HEERS " 16 DATA "🭼ITTLE BY 🭼ITTLE " 17 DATA "╮NSIDE ♠GATHA " 19 DATA "╲USICAL 🭸REDITS " 20 DATA "🭼OADSTAR " 21 TP$="<white>┌🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┐" 22 MD$="<white>│<reverse on><light gray> <rev off><white>│" 23 LN$="<white>├🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┤" 24 BT$="<white>└🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹<home>" 25 GOTO30 26 PRINT"<clr>"TP$; 27 FORI=1TO23:PRINTMD$;:NEXT:PRINTBT$:POKE2023,125:POKE56295,1 28 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN 30 GOSUB26 32 PRINT"<home><cursor down>│<reverse on><purple> 🭰HE 🭾UZZLE 🭾AGE <rev off><white>│"; 34 PRINTLN$; 60 POKE214,21:PRINT 65 PRINTLN$; 70 PRINT"│<reverse on><light blue> ╭SE CURSOR KEYS/🭻🭶🭰╭🭻╱ TO SELECT <rev off><white>│"; 80 GOSUB28 100 PRINT"<home><cursor down><cursor down><cursor down><cursor down>"; 102 PRINTTAB(7)"<reverse on><white>┌🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┐" 104 QQ$="<reverse on>│ │" 105 FORI=1TO12:PRINT"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>"QQ$:NEXT 106 PRINTTAB(7)"<reverse on>└🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┘" 107 POKE214,5:PRINT 109 FORI=1TO10:PRINTTAB(9)"<reverse on>"M$(I):NEXT 145 SYS52496,6 146 POKE198,0 150 R=5:M=1:POKE214,R:PRINT:PRINTTAB(9)"<reverse on><light blue>"M$(M):M1=M:R1=R 155 GETK$:IFK$=""THEN155 160 IFK$=CHR$(13)THENGOSUB9930:GOTO200 165 IFK$="<cursor up>"THENM=M-1:R=R-1:IFM<1THENM=10:R=14 170 IFK$="<cursor down>"THENM=M+1:R=R+1:IFM>10THENM=1:R=5 175 IFM<>M1THENPOKE214,R1:PRINT:PRINTTAB(9)"<reverse on><white>"M$(M1):GOSUB9910 180 POKE214,R:PRINT:PRINTTAB(9)"<reverse on><light blue>"M$(M) 182 M1=M:R1=R 185 GOTO155 190 : 200 IFM=10THEN11000:REMRETURNLS 205 IFM=9THEN13000:REM CREDITS 220 POKE214,10:PRINT 225 PRINTTAB(13)"<reverse on><light green>┌🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┐" 227 Q1$="<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><reverse on>│ │" 229 FORI=1TO6:PRINTQ1$:NEXT 230 PRINTTAB(13)"<reverse on>└🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┘" 232 POKE214,12:PRINT 234 FORI=1TO4:PRINTTAB(15)"<reverse on>"R$(I):NEXT 280 R2=12:M2=1:POKE214,R2:PRINT:PRINTTAB(15)"<reverse on><light blue>"R$(M2):M1=M2:R1=R2 285 GETK$:IFK$=""THEN285 290 IFK$=CHR$(13)THENGOSUB9930:GOTO400 295 IFK$="<cursor up>"THENM2=M2-1:R2=R2-1:IFM2<1THENM2=4:R2=15 300 IFK$="<cursor down>"THENM2=M2+1:R2=R2+1:IFM2>4THENM2=1:R2=12 305 IFM2<>M1THENPOKE214,R1:PRINT:PRINTTAB(15)"<reverse on><light green>"R$(M1):GOSUB9910 310 POKE214,R2:PRINT:PRINTTAB(15)"<reverse on><light blue>"R$(M2) 315 M1=M2:R1=R2 320 GOTO285 325 : 400 IFM2=4THENSYS52499,6:GOSUB28:GOTO150:REM MAIN MENU 401 : 402 IFM2=3THEN500:REM CREDITS 403 IFM2=1THEN600:REM INSTR 410 IFM=1THENF$="USA 31" 411 IFM=2THENF$="OSLO 31" 413 IFM=3THENF$="DISH 31" 415 IFM=4THENF$="COBRA 31" 416 IFM=5THENF$="TUE 31" 417 IFM=6THENF$="SNAPS 31" 418 IFM=7THENF$="WOMEN 31" 419 IFM=8THENF$="GASP 31" 420 GOTO700 440 : 500 IFM<8THENCR$="🭲ARBARA 🭴. ♥CHULAK":GOTO520 518 CR$=" 🭺ENDER 🭰UCKER" 520 SYS52496,7 525 POKE214,16:PRINT:PRINTTAB(5)"<reverse on><cyan>┌🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┐" 527 PRINTTAB(5)"<reverse on>│ 🭾UZZLE(S) 🭲Y │" 530 PRINTTAB(5)QQ$ 535 PRINTTAB(5)"<reverse on>└🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┘" 540 POKE214,18:PRINT:PRINTTAB(18-LEN(CR$)/2)"<reverse on>"CR$ 544 T=1 545 GETK$:IFK$<>""THEN550 546 T=T+1:IFT<100THEN545 550 SYS52499,7:GOSUB28:GOTO285 555 : 600 SYS52496,7 605 ONMGOSUB5000,5000,5000,5000,5000,5000,5000,5000 610 SYS52499,7:GOSUB28:GOTO280 625 : 700 GOSUB9600 705 F1$="XWORD 31" 721 X=LEN(F$):POKE828,X 722 FORI=1TOX:POKE828+I,ASC(MID$(F$,I,1)):NEXT 726 SYS57812F$,DV,0 727 POKE780,0:POKE781,0:POKE782,128 728 SYS65493 729 IFFF=1THEN750 730 SYS57812F1$,DV,0:POKE780,0:POKE781,0:POKE782,8:SYS65493 735 SYS57812"XF 31",DV,0 740 POKE780,0:POKE781,0:POKE782,56 745 SYS65493:FF=1 750 POKE53272,31:SYS2048 760 POKE53272,29:SYS52499,6:GOSUB28:GOTO150 5000 GOSUB26 5005 PRINT"<home><cursor down>│<reverse on><purple> 🭸ROSSWORD 🭾UZZLES <rev off><white>│"; 5010 PRINTLN$; 5020 PRINT"<cursor down><cursor right><reverse on><light gray> ╭SE THE CURSOR KEYS TO MANEUVER 5025 PRINT"<cursor right><reverse on><light gray> AROUND THE GRID AND PRESS THE KEYS 5030 PRINT"<cursor right><reverse on><light gray> TO ENTER YOUR SOLUTIONS. 5040 PRINT"<cursor down><cursor right><reverse on><light gray> 🭰HE DEFINITIONS ARE DISPLAYED AT 5045 PRINT"<cursor right><reverse on><light gray> THE BOTTOM OF THE SCREEN AND 5050 PRINT"<cursor right><reverse on><light gray> REPRESENT THE CLUES BOTH ACROSS AND 5055 PRINT"<cursor right><reverse on><light gray> DOWN FOR THE SQUARE THAT THE CURSOR 5060 PRINT"<cursor right><reverse on><light gray> IS ON. ♠S YOU MOVE THE CURSOR, THE 5065 PRINT"<cursor right><reverse on><light gray> CLUES WILL CHANGE TO REFLECT YOUR 5070 PRINT"<cursor right><reverse on><light gray> POSITION ON THE GRID. 5080 PRINT"<cursor down><cursor right><reverse on><light gray> ♠LL CONTROLS ARE LISTED ON THE 5085 PRINT"<cursor right><reverse on><light gray> PLAYING SCREEN." 5110 GOSUB9800:RETURN 5115 : 9600 POKE214,15:PRINT 9605 PRINTTAB(4)"<reverse on><purple>┌🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┐ 9607 PRINTTAB(4)"<reverse on>│ │ 9610 PRINTTAB(4)"<reverse on>│ 🭼OADING... │ 9612 PRINTTAB(4)"<reverse on>│ │ 9615 PRINTTAB(4)"<reverse on>└🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┘ 9620 RETURN 9625 : 9800 POKE214,21:PRINT:PRINTLN$; 9805 PRINT"<white>│<reverse on><light blue> 🭾RESS 🭻🭶🭰╭🭻╱ <rev off><white>│"; 9810 GETK$:IFK$<>CHR$(13)THEN9810 9815 RETURN 9820 : 9900 FORI=0TO24:POKES+I,.:NEXT:RETURN 9910 POKES+24,15:POKES+5,9:POKES+6,0 9915 POKES+1,19:POKES,63:POKES+4,17 9920 FORT=1TO50:NEXT:POKES+4,16:RETURN 9930 POKES+24,15:POKES+5,9:POKES+6,0 9935 POKES+1,48:POKES,0:POKES+4,17 9940 FORT=1TO50:NEXT:POKES+4,16:RETURN 10000 N$="PUZZLE PAGE 31":D=PEEK(186):OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END 11000 POKE214,15:PRINT 11005 PRINTTAB(13)"<reverse on><pink>┌🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┐" 11010 Q2$="<reverse on>│ │":PRINTTAB(13)Q2$ 11015 PRINTTAB(13)"<reverse on>│ ♠RE YOU SURE? [Y/N] │" 11020 PRINTTAB(13)Q2$ 11025 PRINTTAB(13)"<reverse on>└🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┘" 11030 GETK$:IFK$=""THEN11030 11035 IFK$<>"Y"THENSYS52499,6:GOTO150 11037 PRINT"<clr>":POKE53272,23 11040 GOTO40000 11070 : 13000 SYS52496,7 13005 C1$="╲ENUETT" 13010 C2$="🭼UIGI 🭲OCCHERINI" 13012 C3$="🭰RANSCRIBED BY 🭷AVE ╲ARQUIS" 13015 POKE214,6:PRINT:PRINTTAB(9)"<reverse on><cyan>┌🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┐" 13020 PRINTTAB(9)"<reverse on>│ 🭲ACKGROUND ╲USIC │" 13025 FORI=1TO3:PRINTTAB(9)"<reverse on>│ │":NEXT 13035 PRINTTAB(9)"<reverse on>└🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┘" 13040 POKE214,8:PRINT:PRINTTAB(24-LEN(C1$)/2)"<reverse on>"C1$ 13045 POKE214,9:PRINT:PRINTTAB(24-LEN(C2$)/2)"<reverse on>"C2$ 13047 POKE214,10:PRINT:PRINTTAB(24-(LEN(C3$)/2))"<reverse on>"C3$ 13050 T=1 13055 GETK$:IFK$<>""THEN13065 13060 T=T+1:IFT<100THEN13055 13065 SYS52499,6:GOSUB28:GOTO150 40000 FORI=0TO21:POKE828+I,8+I:NEXT 40010 IFDV<8ORDV>29ORDV=8THEN40030 40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A 40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT 40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060 40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070 40060 NEXT:PRINT"<clr>":POKE53272,23:POKE186,8:END 40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"<clr>":POKE53272,23 40080 PRINT"<clr><cursor down><cursor down><cursor down>P🭽2048,0:P🭽44,8:P🭽43,1:P🭽56,160:P🭽55,0:CLR:L🭽"Q$A$Q$","I 40090 PRINT"<cursor down><cursor down><cursor down><cursor down>RUN:<home>":POKE631,13:POKE632,13:POKE198,2:END
@ �55,0:�56,128:� =@ �53281,0:�53280,0:��(147)�(14)�(8); V@ DV��(186):�DV�8�DV�8 d@ �53272,29 �@ � M$(11),R$(4):F�0:FF�0:S�54272:�9900 �@ �I�1�4:�R$(I):� �@ � "�EAD IT ","�UN IT ","�REDITS "