10REM Mode Generator 20REM (C) 1996 Jon Ripley 30REM This program is PD 40REM Please DO NOT ALTER this progra m 50DEFFNS="ModeGen" 60MODE 7 70FORX=1TO2:PRINTTAB(1,X)CHR$141;CHR$ (126+2*X)"Mode Generator (C) Jon Ripley" :NEXT 80VDU28,0,24,39,4 90INPUT"Which MODE do you want assemb led:"M 100L=10*(47+M) 110RESTORE L 120READa,b,c,d,e,f,g,h 130P%=&900 140Q%=0 150[OPT0 160LDA#22 170JSR&FFEE 180LDA#a 190JSR&FFEE 200] 210IF M<8 P%?-3=76:Q%=P%-1 220[OPT0 230LDA#154 240LDX#b 250JSR&FFF4 260LDA#c 270STA&30A 280LDA#d 290STA&34F 300LDA#e 310STA&360 320LDA#f 330STA&361 340LDA#g 350STA&362 360LDA#h 370STA&363 380LDA#20 390JSR&FFEE 400LDA#30 410JMP&FFEE 420] 430IF Q%=0 Q%=P%-1 440PRINT'"(S)ave or (R)un (S/R):"; 450REPEATA$=GET$:UNTILINSTR("SsRr",A$) :PRINTA$ 460IF INSTR("Ss",A$) INPUT'"Filename:" A$:OSCLI"SAVE "+A$+" 900 "+STR$÷Q% ELSE MODE a:CALL&900 470DATA 0,156,79,8,1,7,128,1 480DATA 1,216,39,16,3,3,136,17 490DATA 2,244,19,32,15,1,170,85 500DATA 3,156,79,8,1,0,128,1 510DATA 4,136,39,8,1,7,128,1 520DATA 5,196,19,16,3,3,136,17 530DATA 6,136,39,8,1,0,128,1 540DATA 7,75,39,1,0,0,128,1 550DATA 5,224,9,32,15,1,170,85 560DATA 6,196,19,16,3,0,136,17 570DATA 6,224,9,32,15,0,170,85