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