Home » Personal collection » Commodore disks » disk30c2_loadstar_131.d64 » b.menubox demo
b.menubox demo
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 » disk30c2_loadstar_131.d64 |
Filename: | b.menubox demo |
Read OK: | ✔ |
File size: | 08FA bytes |
Load address: | 0801 |
Exec address: | 0000 |
File contents
100 POKE56,32:CLR:DV=PEEK(186):IFDV<8THENDV=8 110 POKE53280,0:POKE53281,0 120 SYS57812"MENUBOX 9000",DV,0:POKE780,0:POKE781,0:POKE782,144:SYS65493 130 SYS57812"FONT",DV,0:POKE780,0:POKE781,0:POKE782,32:SYS65493 140 DIMC(15,2):FORI=0TO15:READC(I,0):NEXT:PRINT"<clr><shift disable>" 150 FORI=0TO15:READC(I,1):NEXT 160 FORI=0TO15:READC(I,2):NEXT:SYS36864+39,10241 170 FORI=1TO5:READA$:SYS36864+42,A$,I,0:NEXT 180 SYS57812"TILES",DV,0:POKE780,0:SYS36864+12:SYS65493 190 SYS36864+27,"TEXT",DV,32768 200 POKE53272,24: 210 LATTICE=36864:BLOCK=36867:BOX=36870:COPY=36873:GOTO370 220 GOSUB510 230 POKE214,24:POKE211,2:SYS58732 240 PRINT"<white><reverse on> ♥🭾♠🭸🭶 <rev off><cyan> - ╱EXT <reverse on><white> 🭸 <rev off><cyan> - 🭸OLOR <white><reverse on> ● <rev off> <cyan>- ●UIT<home>" 250 GETA$:IFA$<>" "ANDA$<>"Q"ANDA$<>"C"THEN250 260 IFA$="C"THEN300 270 IFA$="Q"THENRETURN 280 T1%=RND(0)*137 290 T2%=RND(0)*137 300 C1%=RND(0)*15+1 310 I=RND(0)*3 320 C2%=C(C1%,I) 330 SYSCOPY,8192,T1%,105:SYSBLOCK,0,39,1,1,32,0 340 PRINT"<home><cursor down><white> 🭰ILE 1 ="T1%" 🭰ILE 2 ="T2% 350 SYSCOPY,8192,T2%,95 360 SYSLATTICE,1,38,3,22,95,105,C1%,C2%:GOTO250 370 SYSBLOCK,0,39,24,24,32,0:GOSUB510 380 SYSBLOCK,5,34,7,13,255,2:SYSBLOCK,6,35,6,12,160,14:SYSBOX,6,35,6,12,7 390 SYS36864+39,10241:SYS36864+57,7,34,7,11,1,14,1,14,1,5,0 400 ONF%GOSUB410,450,220,490,620:GOTO370 410 SYS36864+54,"$:*",DV,3*4096:F=F%-1 420 SYSBLOCK,2,36,5,18,255,2:SYSBOX,3,37,4,17,7:SYSBLOCK,4,36,16,16,32,0 430 POKE214,16:POKE211,4:SYS58732:PRINT"<reverse on><light green> 🭸🭻♥🭻/🭻🭶🭰╭🭻╱: 🭰OGGLE ♥🭾♠🭸🭶: 🭶XIT" 440 SYS36864+60,4,5,15,1,3,1,7,1:RETURN 450 SYSBLOCK,0,39,13,16,160,14:POKE214,14:POKE211,1:SYS58732 460 PRINT"<light blue><reverse on>🭸🭻♥🭻-╭🭾/🭷🭽○╱ - ♥🭸🭻🭽🭼🭼 🭺1/🭺7 - ♥🭸🭻🭽🭼🭼" 470 PRINT"<cursor right><reverse on>🭴🭽╲🭶/🭸🭼🭻 - 🭰🭽🭾/🭲🭽🭰🭰🭽╲ 🭻🭶🭰╭🭻╱ - 🭶♣╮🭰 480 SYS36864+48,32768:L=F%-1:SYS36864+57,0,39,2,12,1,3,1,3,0,L,0:RETURN 490 END 500 END 510 FORI=1TO10:SYSBOX,10-I,29+I,12-I,13+I,5:NEXT 520 SYSLATTICE,1,38,3,22,95,105,10,2 530 PRINT"<home><cursor down><reverse on><cursor right><light green> ╲ 🭶 ╱ ╭ 🭰 🭽 🭽 🭼 🭲 🭽 ♣ " 540 SYSBLOCK,1,38,0,0,100,1:RETURN 550 END 560 DATA00,15,10,14,10,03,14,05,09,10,08,12,14,03,05,03 570 DATA00,12,08,05,08,06,12,13,02,08,04,15,11,07,11,12 580 DATA00,11,04,06,06,13,04,03,07,07,07,01,01,15,01,14 590 DATA"♥EE ♠ 🭺ILE 🭻EQUESTOR","╭SE ╲ENU ♠S 🭻EADER","♥EE 🭰ILES ╮N ♠CTION" 600 DATA"●UIT 🭰O 🭲ASIC","●UIT 🭰O 🭼🭽♠🭷♥🭰♠🭻" 610 STOP 620 FORI=0TO21:POKE828+I,8+I:NEXT 630 IFDV<8ORDV>29ORDV=8THEN650 640 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A 650 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT 660 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN680 670 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN690 680 NEXT:PRINT"<clr>":POKE53272,23:POKE186,8:END 690 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"<clr>":POKE53272,23 700 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 710 PRINT"<cursor down><cursor down><cursor down><cursor down>RUN:<home>":POKE631,13:POKE632,13:POKE198,2:END
#d �56,32:�:DV��(186):�DV�8�DV�8 9n �53280,0:�53281,0 ux �57812"MENUBOX 9000",DV,0:�780,0:�781,0:�782,144:�65493 �� �57812"FONT",DV,0:�780,0:�781,0:�782,32:�65493 �� �C(15,2):�I�0�15:�C(I,0):�:�"�"