GLOBAL MADD GLOBAL ILINE GLOBAL MLINE REM WASHAW GAMES 2018 REM VER 1.1 MADD=$A000 ILINE=0 MLINE=817 CX=0 CY=2 CALL LOADFILE BG 1 NUMBER 9,0,ILINE,3 NUMBER 9,1,ILINE+12,3 FOR IX=0 TO 19 CELL IX,2,17 NEXT IX CELL 6,0,2 CELL 7,0,3 CELL 6,1,18 CELL 7,1,19 CELL 12,0,4 CELL 13,0,5 CELL 12,1,20 CELL 13,1,21 CELL 0,0,6 CELL 1,0,7 CELL 0,1,22 CELL 1,1,23 CELL 18,0,8 CELL 19,0,9 CELL 18,1,24 CELL 19,1,25 DO IF TOUCH THEN IF TOUCH.Y\8>=3 THEN BG 0 CLS 0 CX=TOUCH.X\8 CY=TOUCH.Y\8 CELL CX,CY,1 BG 1 NUMBER 9,0,ILINE+CY-3,3 CALL DOKEY(CX,CY) ELSE IF TOUCH.Y\8<2 THEN IF TOUCH.X\16=9 THEN FOR SI=80 TO 90 STEP 2 PLAY 0,SI,1 WAIT 1 NEXT SI CALL SAVEFILE WAIT 60 END IF IF TOUCH.X\16=0 THEN FOR SI=90 TO 80 STEP -2 PLAY 0,SI,1 WAIT 1 NEXT SI WAIT 60 END IF IF TOUCH.X\16=6 AND ILINE>0 THEN FOR SI=88 TO 90 STEP 2 PLAY 0,SI,1 WAIT 1 NEXT SI ILINE=ILINE-5 NUMBER 9,0,ILINE,3 NUMBER 9,1,ILINE+12,3 CALL SHOWFILE WAIT VBL END IF IF TOUCH.X\16=3 AND ILINE <(MLINE-12) THEN FOR SI=88 TO 86 STEP -2 PLAY 0,SI,1 WAIT 1 NEXT SI ILINE=ILINE+5 NUMBER 9,0,ILINE,3 NUMBER 9,1,ILINE+12,3 CALL SHOWFILE WAIT VBL END IF END IF END IF WAIT VBL LOOP SUB DOKEY(X,Y) KEYBOARD ON DO K$=INKEY$ IF K$<>"" THEN IF ASC(K$)=10 THEN GOTO EXITKEY ELSE IF ASC(K$)=8 THEN BG 1 CALL TEXTEDIT(X,Y," ") X=X-1 IF X<0 THEN X=0 CLS 0 BG 0 CELL X,Y,1 ELSE BG 1 CALL TEXTEDIT(X,Y,K$) X=X+1 IF X>19 THEN X=19 CLS 0 BG 0 CELL X,Y,1 END IF END IF WAIT VBL LOOP EXITKEY: KEYBOARD OFF CLS 0 BG 1 NUMBER 9,0,ILINE,3 END SUB SUB TEXTEDIT(X,Y,K$) TEXT X,Y,K$ POKE MADD+((Y+ILINE-3)*20)+(X),(ASC(K$)-32) END SUB SUB LOADFILE ILINE=0 LOAD 15,MADD RLEN=FSIZE(15) CALL SHOWFILE END SUB SUB SHOWFILE BG 1 FOR IY=ILINE TO ILINE+15 FOR IX=0 TO 19 K=PEEK(MADD+(IY*20)+IX) IF K<=223 THEN K$=CHR$(K+32) TEXT IX,3+IY-ILINE,K$ END IF NEXT IX NEXT IY END SUB SUB SAVEFILE ITRIM=1 WHILE ITRIM=1 FOR IX=0 TO 19 K=PEEK(MADD+(MLINE*20)+IX) IF K<>0 THEN ITRIM=0 NEXT IX IF ITRIM=1 THEN MLINE=MLINE-1 WEND IF MLINE>=0 THEN SAVE 15,"MESSAGES",MADD,20*(MLINE+1) END SUB #1:MAIN PALETTES 053F2A1500383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FF818181818181FF0000000000000000 004A4B4A4A6A0001FFB5B4B5B595FFFE 002E28AC682E0000FFD1D75397D1FFFF 0001030509010101FFFEFCFAF6FEFEFE 0000804020000000FFFF7FBFDFFFFFFF 0047454545770000FFB8BABABA88FFFF 0071517755570000FF8EAE88AAA8FFFF 0077457715750000FF88BA88EA8AFFFF 0056545654260000FFA9ABA9ABD9FFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00FF00FF00FF00000000FFFFFF000000 0101010905030100FEFEFEF6FAFCFEFF 0000002040800000FFFFFFDFBF7FFFFF 01004A4B4A4A6A00FEFFB5B4B5B595FF 00002E28AC682E00FFFFD1D75397D1FF 000010207E201000FFFFEFDF81DFEFFF 007E7E7E7E7E7E00FF818181999999FF 000008047E040800FFFFF7FB81FBF7FF 007E7E7E7E7E7E00FF818181999999FF