MINI GRAF/1 i% :'******************************%:'********** MINI GRAF *********%:'******************************(:'SCREEN 1...$CB00-D77F2:'SCREEN 2...$D780-E3FF<:'SCREEN 3...$E400-F07FF:'SCREEN 4...$F080-FCFF%P:'******************************Z"CRT:M1":Nd,@:@, :, :,:n[@] ,0,4,4:[@], ,5,5:[@]?,,,0:[],,G,@ x WA:WB/aPOI@:RAS:WW:BV:W@:8, :"":8,`:""f[@]`,8,"X",,,:[@]X,8,"Y",,,A[]D,,"",,,9D,,"* MINI GRAF *",,,. SS 3: SD:SS,SD::/X>:Y>:P>:Q>: X,Y#P,:"JOY/CURSOR?"`,(:"(1/2)" G$:G$"" r G$"1" JO:[],p,"",,,:,p,"J",,,s G$"2" JO:[],p,"",,,:,p,"C",,, G$"1" G$"2" ) `: j:W1:: : G$: G$"" N(JO): N 6!"BS(JO): BS W1W , )6:'******** POHYB ********************@ N , , , , , , , J X XWAT X/ XWB^ Y YWAh Y/ YWBFr@,8:"###";Xp:,8:"###";Yp|[POI,]X,Y:PX:QYYY: v:"XX:YY: v:XX: v:"XX:YY: v:YY: v:"XX:YY: v:XX: v:"XX:YY: v:):'****** MENU **********************r:'****SET: G$"s" W@ :W:8, :[]"" : :W@:8, :"":'****POI: G$"" POI POI@:[@,]X,Y::8,`:"": POI:[,]X,Y::8,`:[]""[:'****RAS: G$"q" RAS :():RAS : :():(H):RAS:'****COL: G$"" BVBV: BV ,:@,`:,@:,: : ,@:@,:, :,:A:'****WIN: G$"" WWWW: WW L: : V:!:'****SYM: G$"" : &:'****CLS: G$"" H!0:'****DEL: G$"" : !::'****SAS: G$"" : SD:'****LOS: G$"" : <:[POI,]X,Y:W1: RAS ()N G$"" : "X G$"C" : `: b G$"" : lvW2(X,Y):[W1]P,Q:W1W2):'********* HCOPY ******************8,p:"": ` X, :"P"TN: GR:BB J / I /$H(I,J): H@ H BBH  BBH": H@ H: ' ,J:AG: TN: : :8,p:[]"": `: j: N H (I) ,J : (I) ,J *(,):(, ) : G$"* G$"" (,p): 4(,p): H > )H:'***** DELETE *********************>Rp:[],,"", , ,(\[@]X,Y::W1:f RAS ()p)z:'***** SYMBOL ********************* `:CU : (@,:"SYM?";B$c@, :"ZX=";ZX:@,(:"ZY=";ZY: `: X,Y,B$,ZX,ZY,: j: 2:):'***** MENU P *********************8@, :"F1 SET":, :"F6 SYM"8@,`:"F2 POI":,`:"F7 CLS"8@,:"F3 RAS":,:"F8 DEL"8@,0:"F4 COL":,0:"F9 SAS"8@,P:"F5 WIN":,P:"F10LOS"8@,p:" HCO":,p:"C CON"@,:" END"" TT  *@,TT:[]"",8:"SCREEN:"P,8:"1"$h,8:"2".,8:"3"8 ,8:"4"B/L8,P:"":WA/:WB:7V8,P:[]"":WA:WB/:B` TY :@,TY:" "::j`, :"R":t:'**** SAVE SCREEN ****u~ $3E,$83,$D3,$CD,$DB,$E0,$06,$A0,$21,$6E,$82,$11,$00,$00,$05,$C5,$01,$14,$0,$09,$ED,$B0,$C1,$20,$F5,$DB,$E1,$C9:'**** LOAD SCREEN ****} $3E,$83,$D3,$CC,$DB,$E0,$06,$A0,$21,$6E,$82,$11,$00,$00,$05,$C5,$01,$14,$0,$09,$EB,$ED,$B0,$EB,$C1,$20,$F3,$DB,$E1,$C9:'**** DELETE SCREEN ****<$21,$00,$CB,$11,$01,$CB,$01,$7F,$0C,$36,$0,$ED,$B0,$C9:'**** RASTR ON/OFF **** $3E,$03,$D3,$CD,$DB,$E0,$06,$28,$21,$1D,$82,$11,$8D,$00,$05,$C5,$F5,$19,$06,$14,$2B,$05,$F5,$23,$CB,$56,$CC,$78,$CA,$CB,$76,$CC,$83,$CA,$F1,$20,$F0,$F1,$C1,$20,$E5,$3E,$83,$D3,$CC,$DB,$E1,$C9^ $3E,$21,$D3,$CC,$36,$04,$3E,$03,$D3,$CD,$C9,$3E,$21,$D3,$CC,$36,$40,$3E,$03,$D3,$CD,$C9 $3E,$41,$D3,$CC,$DB,$E0,$06,$28,$21,$1D,$82,$11,$8D,$00,$05,$C5,$F5,$19,$06,$14,$2B,$05,$23,$36,$44,$20,$FA,$F1,$C1,$20,$EF,$3E,$83,$D3,$CC,$DB,$E1,$C9:CU0: (: `: : : `: j: 2:  S$F S$"1" H,8:"": ,,:():,::F S$"2" `,8:"": ,,:():,::F S$"3" x,8:"": ,,:():,::F  S$"4" ,8:"": ,,:():,:: S$(P) :  ( ,CU:"": 2 ,CU:[]""::<CUP: (: `: : F: `: j: 2: F S$'P S$"1" (,,:()::'Z S$"2" (,,:()::'d S$"3" (,,:()::'n S$"4" (,,:()::x S$(P) :  F&H, :"W ?":, () H,8:"", () `,8:"", () x,8:"", () ,8:""L G$"3" :W:8, :[]"":8,`:"":CU: (: `: : : `: j: 2:  D$[ D$"1" H,8:[]"":;,,:>,,:(:):,::[ D$"2" `,8:[]"":;,,:>,,:(:):,::[ D$"3" x,8:[]"":;,,:>,,:(:):,::[ D$"4" ,8:[]"":;,,:>,,:(:):,:: D$(P) :  %" ( )"RUN "(P), ( )"LIST "6 ( @)"AUTO "@ ( )"RENUM "J (  )"COLOR "T ( @)"CHR$("^ ( `)"DEF KEY("h ( )"CONT"r ( )"SAVE "| ( )"LOAD " E X F X,,X,G:(, X):(,X p) X:(,,):z:(,p):: H:,:@,p: ,H,"END", , ,:: ( )"s" ( )"" ( @)"q" ( )"" (  )"" ( @)"" ( `)"" ( )"" ( )"" ( )"":A$(LE)P$:LE0