REM "012345678901234567890123456890123456790" REM "TESTING TESTING TEST ONE TEST TWO TEST " GLOBAL LNCOUNT, CY FONT 0 'DO SOME MAGIC ON RASTER (DRAWING SCREEN) ON RASTER CALL MICROROWS KEYBOARD ON TOUCHSCREEN REM IXED BY WAS8BIT SPRITE 0,0,1,64 BG 0 TEXT 0,0,"A" IANI=64 IBG=0 IX=0 IY=0 X=0 Y=0 DO IF TOUCH THEN TX=TOUCH.X TY=TOUCH.Y OX=X OY=Y IF TX<40 AND X>0 THEN X=X-1 ELSE IF TX>120 AND X<39 THEN X=X+1 IF TY<32 AND Y>0 THEN Y=Y-1 ELSE IF TY>96 AND Y<20 THEN Y=Y+1 IF OX<>X OR OY<>Y THEN PLAY 0,40,1 SOUND 0 SPRITE 0,X*4,Y*6+1,64 WAIT 6 END IF END IF WANI=(WANI+1) MOD 10 IF WANI=0 THEN ADD IANI,1,64 TO 65 SPRITE 0,,,IANI END IF K$=INKEY$ IF K$<>"" THEN K=ASC(K$) REM K=8 IS DELETE/BACKUP REM K=10 IS RETURN IF K<>8 AND K<>10 THEN IX=X\2 IF X\2=X/2 THEN BG 0 ELSE BG 1 TEXT IX,Y,K$ CALL ADJ(X,Y,1,0) SPRITE 0,X*4,Y*6+1, END IF IF K=8 THEN CALL ADJ(X,Y,-1,0) IX=X\2 IF X\2=X/2 THEN BG 0 ELSE BG 1 TEXT IX,Y," " SPRITE 0,X*4,Y*6+1, END IF IF K=10 THEN IF Y<20 THEN INC Y X=0 IX=X\2 IF X\2=X/2 THEN BG 0 ELSE BG 1 SPRITE 0,X*4,Y*6+1, END IF END IF END IF WAIT VBL LOOP SUB ADJ(X,Y,DX,DY) X=X+DX Y=Y+DY IF X<0 THEN IF Y=0 THEN X=0 ELSE X=39 DEC Y END IF END IF IF X>39 THEN IF Y=20 THEN X=39 ELSE X=0 INC Y END IF END IF IF Y>20 THEN Y=20 END SUB SUBS: 'TINY TEXT BY TIMO AND ALICE '****************************************************************** SUB MICROROWS 'HANDLES WHAT ROW IS BEING DRAWN 'AND WHERE THE NEXT CHARACTER IS DISPLAYED 'Y : Y POSITION Y=(RASTER\6)*2-1 SCROLL 0,0,Y 'HERE'S THE OTHER PART OF THE MAGIC...MOVE BACKGROUND 'TO OVERPRINT THE CHARACTER. SCROLL 1,-4,Y END SUB #1:MAIN PALETTES 2800143C00300000000C000000030000 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 40404000400000000000000000000000 A0A00000000000000000000000000000 A0E0A0E0A00000000000000000000000 40E040E0400000000000000000000000 A0204080A00000000000000000000000 0040E040000000000000000000000000 40400000000000000000000000000000 20404040200000000000000000000000 80404040800000000000000000000000 00A040A0000000000000000000000000 0040E040000000000000000000000000 00000040800000000000000000000000 0000E000000000000000000000000000 00000000400000000000000000000000 20204080800000000000000000000000 E0A0A0A0E00000000000000000000000 40C04040E00000000000000000000000 E020E080E00000000000000000000000 E0206020E00000000000000000000000 A0A0E020200000000000000000000000 E080E020E00000000000000000000000 E080E0A0E00000000000000000000000 E0202020200000000000000000000000 E0A0E0A0E00000000000000000000000 E0A0E020200000000000000000000000 00400040000000000000000000000000 00400040800000000000000000000000 20408040200000000000000000000000 00E000E0000000000000000000000000 80402040800000000000000000000000 C0204000400000000000000000000000 608060A0C00000000000000000000000 40A0E0A0A00000000000000000000000 C0A0C0A0C00000000000000000000000 60808080600000000000000000000000 C0A0A0A0C00000000000000000000000 E080C080E00000000000000000000000 E080C080800000000000000000000000 6080A0A0600000000000000000000000 A0A0E0A0A00000000000000000000000 E0404040E00000000000000000000000 E0202020C00000000000000000000000 A0A0C0A0A00000000000000000000000 80808080E00000000000000000000000 E0E0A0A0A00000000000000000000000 C0A0A0A0A00000000000000000000000 40A0A0A0400000000000000000000000 C0A0C080800000000000000000000000 40A0A0A0600000000000000000000000 C0A0C0A0A00000000000000000000000 60804020C00000000000000000000000 E0404040400000000000000000000000 A0A0A0A0600000000000000000000000 A0A0A0A0400000000000000000000000 A0A0A0E0E00000000000000000000000 A0A040A0A00000000000000000000000 A0A06020C00000000000000000000000 E0204080E00000000000000000000000 60404040600000000000000000000000 80804020200000000000000000000000 C0404040C00000000000000000000000 40A00000000000000000000000000000 00000000E00000000000000000000000 E0E0E0E0E0000000E0E0E0E0E0000000 #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #15:MAIN SOUND 28001000000000001800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000