10 REM"ؖ욙567 20 REM"𐂡𖳿𝥝𤖻 30 : 40 REM"摖 50 REM"應 60 REM"挻 70 REM"摼 80 REM"戉 90 REM"掓 100 REM"擆 110 REM"扂 120 HIMEM=&3000 130 PROCass 140 REPEAT 150 VDU22,1 160 VDU19,2,6;0; 170 VDU19,1,5;0; 180 PROCset:PROCpic:PROCreset 190 IFA$="1":PROCdemo1 200 IFA$="2":PROCdemo2 210 VDU22,7 220 PROCpic 230 IFA$="1":PROCdemo1 240 IFA$="2":PROCdemo2 250 UNTILFALSE 260 END 270 : 280 DEFPROCpic 290 PRINT"椉" 300 PRINT"椀 楆" 310 PRINT"椀 柗######### 楆" 320 PRINT"椀 柕暰 刊 刊柕 楆" 330 PRINT"椀 柕暤 柕 楆" 340 PRINT"椀 柕暪 浆 柕 楆" 350 PRINT"椀 柕暤 柕 楆" 360 PRINT"椀 柕曧   柕 楆" 370 PRINT"椀 柕 卻oftware 柕 楆" 380 PRINT"椀 桏篌篌篌篌篌篌篌篌篌 楆" 390 PRINT"椀 楆" 400 PRINT"椀 楆" 410 PRINT"椀匱eletext Graphics in all MODE's 楆" 420 PRINT"椀暎############### 楆" 430 PRINT"椀員oggles between MODE 1 and 7 every楆" 440 PRINT"椀10 seconds or on keypress. 楆" 450 PRINT"椀 楆" 460 PRINT"椀哖ress 1 to see the first demo 楆" 470 PRINT"椀唚hich displays the character set 楆" 480 PRINT"椀唗wice first the normal set then 楆" 490 PRINT"椀唗he intercepted set for all 楆" 500 PRINT"椀哅ODE's (0-7). 楆" 510 PRINT"椀哖ress 2 for the second demo which 楆" 520 PRINT"椀咰HAIN's the Resistor Program 楆" 530 PRINT"棴"; 540 A$=INKEY$(1000) 550 VDU30 560 ENDPROC 570 : 580 DEFPROCdemo2 590 PROCset 600 VDU22,1 602 VDU19,2,6;0; 604 VDU19,1,5;0; 610 CHAIN"RCODBAS" 620 ENDPROC 630 : 640 DEFPROCdemo1 650 M%=0 660 FORM%=0TO7 670 VDU22,M% 680 X%=&55:A%=160:mode%=(USR(&FFF4)AND&FFFF)DIV&100 690 PRINT"MODE ";STR$(M%) 700 FORpass%=0TO1 710 IFpass%:IFmode%<>7:PROCset 720 PRINT 730 IFmode%=2ORmode%=5:PRINT" 0123456789ABCDEF"ELSEPRINT" 0 1 2 3 4 5 6 7 8 9 A B C D E F" 740 IFmode%=2ORmode%=5:PRINT" ----------------"ELSEPRINT" --------------------------------" 750 FORI%=&A0 TO &F0 STEP 16 760 IFI%=&C0:I%=&E0 770 PRINTSTR$~(I%)":"; 780 IF(mode%=1ORmode%=2ORmode%=5)ANDpass%:COLOUR2 790 FORJ%=0 TO 15 800 IFmode%=7ANDpass%:PRINTCHR$(147);ELSEIFmode%<>2ANDmode%<>5:PRINT" "; 810 PRINTCHR$(I%+J%); 820 NEXT 830 VDU20 840 PRINT:PRINT 850 NEXT 860 NEXT 870 VDU30 880 A=INKEY(500) 890 IFpass%:IFmode%<>7:PROCreset 900 NEXT 910 ENDPROC 920 : 930 DEFPROCset 940 ?&7C=&20 950 ?&7D=?&20E 960 ?&7E=?&20F 970 ?&7F=&60 980 ?&80=128 990 X%=&80:Y%=0:A%=10:R%=USR(&FFF1) 1000 ?&20E=0 1010 ?&20F=9 1020 ENDPROC 1030 : 1040 DEFPROCreset 1050 ?&20E=?&7D 1060 ?&20F=?&7E 1070 VDU23,128,?&81,?&82,?&83,?&84,?&85,?&86,?&87,?&88 1080 ENDPROC 1090 : 1100 DEFPROCass 1110 FORI%=0TO2STEP2 1120 P%=&0900 1130 [OPTI% 1140 CMP #&80:BCS tb1:JMP(&007D) 1150 .tb1 1160 CMP #&A0:BCS tb2 1170 .chcol 1180 AND #&0F 1190 TAX 1200 LDA #17:JSR &007C 1210 TXA:JSR &007C 1220 LDA #&20:JMP(&007D) 1230 .tb2 1240 CMP #&C0:BCC graphic 1250 CMP #&E0:BCS graphic:LDA #&20:JMP(&007D) 1260 .graphic 1270 STA&80 1280 LDX #0 1290 LDA #1:BIT &80:BEQ tp10:LDX #&F0 1300 .tp10 1310 LDA #2:BIT &80:BEQ tp11 1320 TXA:ORA #&0F:TAX 1330 .tp11 1340 STX &70:STX &71 1350 LDX #0 1360 LDA #4:BIT &80:BEQ tp12:LDX #&F0 1370 .tp12 1380 LDA #8:BIT &80:BEQ tp13 1390 TXA:ORA #&0F:TAX 1400 .tp13 1410 STX &72:STX &73:STX &74 1420 LDX #0 1430 LDA #16:BIT &80:BEQ tp14:LDX #&F0 1440 .tp14 1450 LDA #64:BIT &80:BEQ tp15 1460 TXA:ORA #&0F:TAX 1470 .tp15 1480 STX &75:STX &76:STX &77 1490 LDA #23:JSR &007C 1500 LDA #128:JSR &007C 1510 LDA &70:JSR &007C 1520 LDA &71:JSR &007C 1530 LDA &72:JSR &007C 1540 LDA &73:JSR &007C 1550 LDA &74:JSR &007C 1560 LDA &75:JSR &007C 1570 LDA &76:JSR &007C 1580 LDA &77:JSR &007C 1590 LDA #128 1600 JMP(&007D) 1610 ]NEXT 1620 ENDPROC