RANDOMIZE TIMER GAMEPAD 1 XMAX=32*8-1 YMAX=32*8-1 REM WAS8BIT ITIME=TIMER GAMETIME=0 GLOBAL MHEALTH,MCASH,MREP,MPX,MPY GLOBAL MMIN,MHOUR,MDAY GLOBAL SAVINGS,INTEREST SAVINGS=0 INTEREST=1 MCASH=$E000 MHEALTH=$E002 MREP=$E003 MPX=$E004 MPY=$E005 MMIN=$E006 MHOUR=$E007 MDAY=$E008 MSAVINGS=$E009 'PERSIST MEMORY HEALTH=PEEK(MHEALTH) CASH=PEEKW(MCASH) SAVINGS=PEEKW(MSAVINGS) REP=PEEK(MREP) PX=PEEK(MPX) PY=PEEK(MPY) TIMEHOUR=PEEK(MHOUR) TIMEDAY=PEEK(MDAY) TIMEMIN=PEEK(MMIN) IF HEALTH=0 AND CASH=0 THEN HEALTH=99 CASH=99 REP=0 TIMEHOUR=12 TIMEDAY=1 TIMEMIN=0 PX=7 PY=7 POKEW MCASH,99 POKE MHEALTH,99 POKE MPX,7 POKE MPY,7 POKE MHOUR,12 POKE MDAY,1 END IF XSCR=8*PX YSCR=8*PY CSCR=0 DX=0 DY=0 BG 0 PCHAR=244 IMOVE=-1 REDRAW: CLS BG 1 BG COPY 0,0,32,32 TO 0,0 BG 0 SCROLL 1,XSCR,YSCR DO IF DX=0 AND DY=0 THEN IF RIGHT(0) THEN DX=8 IF LEFT(0) THEN DX=-8 IF UP(0) THEN DY=-8 IF DOWN(0) THEN DY=8 IF IMOVE THEN BG 0 CLS 0 IMOVE=0 PAL 1 CELL 9,7,PCHAR PAL 0 TEXT 0,0,STR$(HEALTH)+"."+STR$(REP) TEXT 6,0,STR$(TIMEDAY)+"/"+STR$(TIMEHOUR)+":"+STR$(TIMEMIN)+" " TEXT 15,0,"$"+STR$(CASH) BG 1 PX=XSCR\8 PY=YSCR\8 POKE MPX,PX POKE MPY,PY CTEXT=CELL.C(XSCR\8+9,YSCR\8+7) IF CTEXT<>64 THEN INC PY POKE MPY,PY C$=CHR$(CTEXT+32) BG 0 TEXT 19,0,C$ IF C$="D" THEN CALL DICE(CASH) POKEW MCASH,CASH DY=8 GOTO REDRAW END IF IF C$="L" THEN CALL LOTTERY(CASH) POKEW MCASH,CASH DY=8 GOTO REDRAW END IF IF C$="B" THEN CALL BANK(CASH) POKEW MCASH,CASH POKEW MSAVINGS,SAVINGS DY=8 GOTO REDRAW END IF DY=8 END IF END IF ELSE BG 1 CSCR=CELL.A(XSCR\8+9,YSCR\8+7) IMOVE=-1 ADD XSCR,SGN(DX),0 TO XMAX ADD YSCR,SGN(DY),0 TO YMAX SCROLL 1,XSCR,YSCR IF DX>0 THEN DEC DX ELSE IF DX<0 THEN INC DX IF DY>0 THEN DEC DY ELSE IF DY<0 THEN INC DY BG 0 PAL 1 CELL 9,7,PCHAR-64 END IF IF CSCR=4 AND IMOVE THEN WAIT 2 GAMETIME=(TIMER-ITIME)\720 IF GAMETIME>=1 THEN ITIME=TIMER GAMETIME=0 INC TIMEMIN IF TIMEMIN>=60 THEN TIMEMIN=0 INC TIMEHOUR IF TIMEHOUR>=24 THEN TIMEHOUR=0 INC TIMEDAY IF TIMEDAY>=31 THEN TIMEDAY=0 END IF POKE MDAY,TIMEDAY END IF POKE MHOUR,TIMEHOUR END IF POKE MMIN,TIMEMIN PAL 0 BG 0 TEXT 6,0,STR$(TIMEDAY)+"/"+STR$(TIMEHOUR)+":"+STR$(TIMEMIN)+" " END IF WAIT VBL LOOP SUB DICE(M) CLS DO LOCATE 0,0 PRINT "DICE GAME $"+STR$(M)+" " LOCATE 0,6 PRINT "A TO PLAY" PRINT "B TO EXIT" IGET=-1 WHILE IGET=-1 IF BUTTON(0,0) THEN IGET=0 IF BUTTON(0,1) THEN IGET=1 WAIT VBL WEND IF IGET=1 THEN EXIT SUB LOCATE 0,4 PRINT " " PRINT PRINT " " PRINT " " FOR I=1 TO 10 LOCATE 0,2 D1=RND(5)+1 D2=RND(5)+1 PRINT STR$(D1)+" "+STR$(D2)+" " PLAY 0,60,1 IF I<10 THEN WAIT 5 NEXT I DSUM=D1+D2 LOCATE 0,2 PRINT STR$(D1)+" "+STR$(D2)+" = "+STR$(DSUM) PRINT IF DSUM=7 THEN M=M+7 PRINT "WIN 7 " ELSE IF DSUM=11 THEN M=M+11 PRINT "WIN 11 " ELSE IF D1=D2 THEN M=M+2 PRINT "WIN 2 " ELSE M=M-1 PRINT "LOSE 1 " END IF PLAY 0,50,1 WAIT 60 LOOP END SUB SUB LOTTERY(M) DIM N(4),D(4) CLS DO LOCATE 0,0 PRINT "LOTTERY $"+STR$(M)+" " LOCATE 0,6 PRINT "A TO PLAY" PRINT "B TO EXIT" IGET=-1 WHILE IGET=-1 IF BUTTON(0,0) THEN IGET=0 IF BUTTON(0,1) THEN IGET=1 WAIT VBL WEND IF IGET=1 THEN EXIT SUB PLAY 0,55,1 LOCATE 0,2 PRINT " " PRINT " " LOCATE 0,6 PRINT "U/D SEL #" PRINT "A= NEXT #" WAIT 15 FOR I=1 TO 4 N(I)=0 NEXT I FOR II=1 TO 4 LOCATE 1,2 FOR I=1 TO 4 PRINT N(I); NEXT I LOCATE II,3 PRINT "*" WHILE NOT BUTTON(0,0) IF DOWN(0) THEN ADD N(II),-1,0 TO 9 PLAY 0,40,1 WAIT 10 END IF IF UP(0) THEN ADD N(II),1,0 TO 9 PLAY 0,42,1 WAIT 10 END IF LOCATE II,2 PRINT N(II); WAIT VBL WEND LOCATE II,3 PRINT " " PLAY 0,50,1 WAIT 30 NEXT II WIN=0 FOR I=1 TO 4 D(I)=RND(9) LOCATE I,2 PRINT N(I) LOCATE I,3 PRINT D(I) IF D(I)=N(I) THEN INC WIN NEXT I IF WIN=4 THEN W=999 IF WIN=3 THEN W=99 IF WIN=2 THEN W=9 IF WIN=1 THEN W=2 IF WIN=0 THEN W=-1 LOCATE 0,6 PRINT " " PRINT " " LOCATE 0,6 IF W=-1 THEN PRINT "NO WIN -1" ELSE PRINT "+"+STR$(W) END IF M=M+W WAIT 60 LOOP END SUB SUB BANK(M) DIM N(4),D(4) CLS DO LOCATE 0,0 PRINT "BANK $"+STR$(M)+" " PRINT INTR=INTEREST IF SAVINGS<0 THEN INTR=INTR*2 PRINT "SAVINGS $"+STR$(SAVINGS)+" " PRINT "INTEREST "+STR$(INTR)+"%"+" " LOCATE 0,6 PRINT "A TO BANK" PRINT "B TO EXIT" PLAY 0,90,5 WAIT VBL IGET=-1 WHILE IGET=-1 IF BUTTON(0,0) THEN IGET=0 IF BUTTON(0,1) THEN IGET=1 WAIT VBL WEND IF IGET=1 THEN EXIT SUB PLAY 0,55,1 LOCATE 0,6 PRINT " " PRINT " " LOCATE 0,6 INPUT "$";AMOUNT LOCATE 0,5 PRINT "$"+STR$(AMOUNT) KEYBOARD OFF LOCATE 0,6 PRINT "U:GET CASH" PRINT "D: DEPOSIT" PRINT "L/R: OOPS" IGET=0 WHILE IGET=0 IF UP(0) THEN IGET=1 IF DOWN(0) THEN IGET=-1 IF LEFT(0) OR RIGHT(0) THEN IGET=2 WEND LOCATE 0,5 PRINT " " PRINT " " PRINT " " PRINT " " IF IGET<2 THEN G=AMOUNT*IGET SAVINGS=SAVINGS-G M=M+G END IF LOOP END SUB #1:MAIN PALETTES 003F2A150030201000382410003C2814 000C0804000F0A050007030200231211 #2:MAIN CHARACTERS 00000000000000000000000000000000 0018181818001800FFE7E7E7E7FFE7FF 006C6C2400000000FF9393DBFFFFFFFF 00247E24247E2400FFDB81DBDB81DBFF 00083E380E3E0800FFF7C1C7F1C1F7FF 0062640810264600FF9D9BF7EFD9B9FF 001C34386E643A00FFE3CBC7919BC5FF 0018183000000000FFE7E7CFFFFFFFFF 000C183030180C00FFF3E7CFCFE7F3FF 0030180C0C183000FFCFE7F3F3E7CFFF 000024187E182400FFFFDBE781E7DBFF 000018187E181800FFFFE7E781E7E7FF 0000000018183000FFFFFFFFE7E7CFFF 000000007E000000FFFFFFFF81FFFFFF 0000000000181800FFFFFFFFFFE7E7FF 00060C1830604000FFF9F3E7CF9FBFFF 003C666E76663C00FFC399918999C3FF 0018381818187E00FFE7C7E7E7E781FF 003C660C18307E00FFC399F3E7CF81FF 003C660C06663C00FFC399F3F999C3FF 0066667E06060600FF999981F9F9F9FF 007E607C06067C00FF819F83F9F983FF 001C307C66663C00FFE3CF839999C3FF 007E060C18303000FF81F9F3E7CFCFFF 003C663C66663C00FFC399C39999C3FF 003C663E06663C00FFC399C1F999C3FF 0000001800180000FFFFFFE7FFE7FFFF 0000001800183000FFFFFFE7FFE7CFFF 00000C1830180C00FFFFF3E7CFE7F3FF 0000007E007E0000FFFFFF81FF81FFFF 000030180C183000FFFFCFE7F3E7CFFF 003C660C18001800FFC399F3E7FFE7FF 003C666E6E603C00FFC39991919FC3FF 00183C667E666600FFE7C399819999FF 007C667C66667C00FF839983999983FF 003C666060663C00FFC3999F9F99C3FF 00786C66666C7800FF879399999387FF 007E607860607E00FF819F879F9F81FF 007E607860606000FF819F879F9F9FFF 003C606E66663C00FFC39F919999C3FF 0066667E66666600FF999981999999FF 003C181818183C00FFC3E7E7E7E7C3FF 001E060606663C00FFE1F9F9F999C3FF 00666C78786C6600FF999387879399FF 0060606060607E00FF9F9F9F9F9F81FF 0042667E7E666600FFBD9981819999FF 0066767E6E666600FF998981919999FF 003C666666663C00FFC399999999C3FF 007C667C60606000FF8399839F9F9FFF 003C66666A6C3E00FFC399999593C1FF 007C667C786C6600FF839983879399FF 003E603C06067C00FFC19FC3F9F983FF 007E181818181800FF81E7E7E7E7E7FF 0066666666663C00FF9999999999C3FF 00666666663C1800FF99999999C3E7FF 0066667E7E664200FF9999818199BDFF 00663C183C666600FF99C3E7C39999FF 0066663C18181800FF9999C3E7E7E7FF 007E0C1830607E00FF81F3E7CF9F81FF 003C303030303C00FFC3CFCFCFCFC3FF 006030180C060200FF9FCFE7F3F9FDFF 003C0C0C0C0C3C00FFC3F3F3F3F3C3FF 00183C6600000000FFE7C399FFFFFFFF 0000000000007E00FFFFFFFFFFFF81FF 0000000000000000FFFFFFFFFFFFFFFF 00181404040C100C00000C1C1C0C080C 004812121200000000247E3612000000 0024601B12401B1200001E3F363E3F12 000830271021170400000E1F1E1F1F04 00401132040C11230022753A142A5723 00102A021013001D000C1E3A7E773A1D 0010040C1800000000081C3C18000000 0008160C0800000600040E3C38180C06 0030000002060C180000180C0E1E3C18 00002012402708120000040A3E3F2C12 000018144027040C0000000C3E3F1C0C 0000000010040C1800000000081C3C18 00000000603F0000000000001E3F0000 000000000010040C0000000000081C0C 00040B060C1830200002071E3C787020 002058110119031E001C3E7F777F3F1E 001024040404403F00081C1C1C1C3E3F 00205833060C003F001C3E3F1E3C7E3F 002058330041031E001C3E3F06273F1E 00665501390101030000337F3F070703 00605F003801433E001E3F7C3E073F3E 00102E001811031E000C1E7C7E773F1E 00603903060C0818001E3F0F1E3C3818 002058031811031E001C3E3F7E773F1E 002058011941031E001C3E3F1F273F1E 000000100C100C00000000080C080C00 000000100C100C18000000080C083C18 000008160C0000060000040E3C180C06 000000603F403F000000001E3F3E3F00 0000300000060C18000000180C1E3C18 00205833060C100C001C3E3F1E0C080C 002058191117001E001C3E777F773C1E 001020180119113300081C7E7F7F7733 006058031811033E001C3E7F7E777F3E 002058131010031E001C3E7370763F1E 006050101113063C00183C76777F7E3C 00605F001C10003F001E3F787C707E3F 00605F001C101030001E3F787C707030 00205E1C1111031E001C3E7277773F1E 00665501191111330000337F7F777733 003006040404001E000C1E1C1C1C3C1E 001C09010141031E00020F0707273F1E 00645B06041010330002377E7C7C7633 006050101010003F0000307070707E3F 0042450901191133000023777F7F7733 00664501111111330000337F7F777733 002058111111031E001C3E7777773F1E 006058031E101030001C3E7F7E707030 002058111111001F001C3E777B7D3E1F 0060580306101033001C3E7F7E7C7633 00205F001801033E001E3F3C1E077F3E 007027040404040C000E3F1C1C1C1C0C 006655111111031E0000337777773F1E 006655111103060C00003377773F1E0C 00665515011931210000336B7F7F7321 00640B06001811330002371E3C7E7733 0066550B0604040C000033371E1C1C0C 006033060C58003F001E3F1E3C387E3F 00302E080808001E000C1E3838383C1E 0060000000000101000030180C060301 003812020202021E00041E0E0E0E3E1E 001020183300000000081C7E33000000 000000000000603F0000000000001E3F 00000000000000000000000000000000 18242424241824180000000000000000 6C92925A240000000000000000000000 245A815A5A815A240000000000000000 08364146314136080000000000000000 62959A742E59A9460000000000000000 1C224A46919A453A0000000000000000 18242448300000000000000000000000 0C1224484824120C0000000000000000 30482412122448300000000000000010 00245A6681665A240000000000000000 00182466816624180000000000002000 00000018242448300000000000000000 0000007E817E00000000000000000000 00000000182424180000000000000000 060912244890A0400000000000000000 3C4299918999423C0000000000000000 182444242466817E0000000000000000 3C429972244E817E0000000000000000 3C4299727999423C0000000000000000 66999981790909060000000000000000 7E819E827979827C0000000000000000 1C224C829999423C0000000000000000 7E817912244848300000000000000000 3C4299429999423C0000000000000000 3C4299417999423C0000000000000000 00001824182418000000000000000000 00001824182448300000000000000000 000C12244824120C0000000000000000 00007E817E817E000000000000000000 00304824122448300000000000000000 3C429972241824180000000000000000 3C7EFFFFFFFE7E3C3C429991919E423C 183C7EFFFFFFFF661824429981999966 7CFEFFFEFFFFFE7C7C8299829999827C 3C7EFFF6F6FF7E3C3C4299969699423C 78FCFEFFFFFEFC787884929999928478 7EFFFEFCF8FEFF7E7E819E84989E817E 7EFFFEFCF8F0F0607E819E8498909060 3C7EFEFFFFFF7E3C3C429E919999423C 66FFFFFFFFFFFF666699998199999966 3C7E3C3C3C3C7E3C3C4224242424423C 1E3F1F0F6FFF7E3C1E2119096999423C 66FFFEFCFCFEFF666699928484929966 60F0F0F0F0FEFF7E60909090909E817E 42E7FFFFFFFFFF6642A5998181999966 66FFFFFFFFFFFF666699898191999966 3C7EFFFFFFFF7E3C3C4299999999423C 7CFEFFFEFCF0F0607C8299829C909060 3C7EFFFFFFFE7F3E3C4299999592413E 7CFEFFFEFCFEFF667C82998284929966 3E7FFE7E3F7FFE7C3E419E423979827C 7E816624242424180000000000000000 66FFFFFFFFFF7E3C669999999999423C 66FFFFFFFF7E3C186699999999422418 66FFFFFFFFFFE742669999818199A542 66FF7E3C7EFFFF666699422442999966 66FFFF7E3C3C3C186699994224242418 7EFF7E3C78FEFF7E7E817224489E817E 3C7E7C78787C7E3C3C424C48484C423C 60F0783C1E0F07026090482412090502 3C7E3E1E1E3E7E3C3C4232121232423C 183C7EFF660000001824429966000000 00000000007EFF7E00000000007E817E 00000000000000000000000000000000 00181818180018000000000000000000 006C6C24000000000000000000000000 00247E24247E24000000000000000000 00083E380E3E08000000000000000000 00626408102646000000000000000000 001C34386E643A000000000000000000 00181830000000000000000000000000 000C183030180C000000000000000000 0030180C0C1830000000000000000000 000024187E1824000000000000000000 000018187E1818000000000000000000 00000000181830000000000000000000 000000007E0000000000000000000000 00000000001818000000000000000000 00060C18306040000000000000000000 003C666E76663C000000000000000000 0018381818187E000000000000000000 003C660C18307E000000000000000000 003C660C06663C000000000000000000 0066667E060606000000000000000000 007E607C06067C000000000000000000 001C307C66663C000000000000000000 007E060C183030000000000000000000 003C663C66663C000000000000000000 003C663E06663C000000000000000000 00000018001800000000000000000000 00000018001830000000000000000000 00000C1830180C000000000000000000 0000007E007E00000000000000000000 000030180C1830000000000000000000 003C660C180018000000000000000000 003C666E6E603C000000000000000000 00183C667E6666000000000000000000 007C667C66667C000000000000000000 003C666060663C000000000000000000 00786C66666C78000000000000000000 007E607860607E000000000000000000 007E6078606060000000000000000000 003C606E66663C000000000000000000 0066667E666666000000000000000000 003C181818183C000000000000000000 001E060606663C000000000000000000 00666C78786C66000000000000000000 0060606060607E000000000000000000 0042667E7E6666000000000000000000 0066767E6E6666000000000000000000 003C666666663C000000000000000000 007C667C606060000000000000000000 003C66666A6C3E000000000000000000 007C667C786C66000000000000000000 003E603C06067C000000000000000000 007E1818181818000000000000000000 0066666666663C000000000000000000 00666666663C18000000000000000000 0066667E7E6642000000000000000000 00663C183C6666000000000000000000 0066663C181818000000000000000000 007E0C1830607E000000000000000000 003C303030303C000000000000000000 006030180C0602000000000000000000 003C0C0C0C0C3C000000000000000000 00183C66000000000000000000000000 0000000000007E000000000000000000 #3:MAIN BG 00002020400440044004400440044004 40024002400240024004400440044004 40024002400240024002400240024002 40024002400240044004400440044004 40044004400440044004400440024002 40024002400240024004400440044004 40044004400240024002400240024002 40024004400440044004400440044004 40044004400440044002400240024002 40024002400240044004400440044004 40044004400440024002400240024004 40044004400440044004400440044004 40044004400440044002400240024002 40024004400440044004400440044004 40044004400440044002400240044004 40044004400440044004400440044004 40044004400440024002400240024004 40044004400440044004400440044004 40044004400440044002400240044004 40044004400440044004400440044004 40044004400440024002400240044004 40044004400440044004400440044004 40044004400440044002400240044004 40044004400440044004400440044004 40044004400240024002400440044004 40044004400440044004400440044004 40044004400440044002400240044004 40044004400440044004400440044004 40044004400240024002400440044004 40044004400440044004400440044004 40044004400440044002400240044004 40044004400440044004400440044004 40044004400240024004400440044004 40044004400440044004400440044004 40044004400440044002400240044004 40044004400440044004400440044004 40044004400240024004400440044004 40044004400440044004400440044004 40044004400440044002400240044004 40044004400440044004400440044004 40044004400240024004400440044004 40044004400440044004400440044004 40044004400440024002400240044004 40044004400440044004400440044004 40044004400240024002400240024002 40024002400240024002400240024002 40024002400240024002400240044004 40044004400440044004400440044004 40044004400240024002400240024002 40024002400240024002400240024002 40024002400240024002400240044004 40044004400440044004400440044004 40044004400240024002400440044004 40014000330133014000400140004001 40002D012D0140002C01400024014000 22012201400033014004400440044004 40044004400240024004400440044004 40004000400040004000400040004000 40004000400040004000400040004000 40004000400040004004400440044004 40044004400240024004400440044004 40014000270127014000400140004001 40002101210140004001400040014000 37013701400040014004400440044004 40044002400240044004400440044004 40014000270127014000400140004001 40002101210140004001400040014000 37013701400040014004400440044004 40044002400240044004400440044004 40004000400040004000400040004000 40004000400040004000400040004000 40004000400040004004400440044004 40044002400240044004400440044004 26014000400140014000260140002601 40002801280140002601400026014000 40014001400026014004400440044004 40024002400240024004400440044004 40044004400440044004400240024002 40024002400240024002400240024002 40024002400240024002400240024002 40024002400240024002400440044004 40044004400440044004400240024002 40024002400240024002400240024002 40024002400240024002400240024002 40024002400240024002400440044004 40044004400440044004400240024002 40024004400440044004400440044004 40044004400440044004400440044004 40044004400240024002400440044004 40044004400440044004400240024002 40044004400440044004400440044004 40044004400440044004400440044004 40044004400240024002400440044004 40044004400440044004400240024004 40044004400440044004400440044004 40044004400440044004400440044004 40044004400240024002400440044004 40044004400440044004400240024004 40044004400440044004400440044004 40044004400440044004400440044004 40044004400240024002400440044004 40044004400440044004400240024004 40044004400440044004400440044004 40044004400440044004400440044004 40044002400240024002400440044004 40044004400440044004400240024004 40044004400440044004400440044004 40044004400440044004400440044004 40024002400240024002400440044004 40044004400440044004400240024004 40044004400440044004400440044004 40044004400440044004400440044002 40024002400240024004400440044004 40044004400440044004400240024004 40044004400440044004400440044004 40044004400440044004400440024002 40024002400440044004400440044004 40044004400440044002400240024002 40044004400440044004400440044004 40044002400240024002400240024002 40024004400440044004400440044004 40044004400240024002400240024002 40024002400240044004400440044002 40024002400240024002400240024002 40044004400440044004400440044004 40024002400240024002400240024002 40024002400240024004400440024002 40024002400240024002400240024004 40044004