Home » Personal collection » Commodore disks » disk30b3_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 » disk30b3_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 "