home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9007a.d64 / mini-quadro (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  765b  |  21 lines
  1. 100 POKE53280,0:POKE53281,0:INPUT"STUFE";S:PRINT"[147]"TAB(10)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  2. 110 PRINT"[195][195][195][174]  ";S:FORT=1TO20:PRINTTAB(10);"[194][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][194]":NEXTT
  3. 130 PRINTTAB(10)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]":FORZ=1TOS:X=INT(RND(0)*15)
  4. 140 Y=INT(RND(0)*15):GOSUB2010:NEXTZ:X=1:Y=1
  5. 210 COL=X+Y*40+55347:POKECOL,6:POKECOL+205,6:GETA$:IFA$=""THEN 210
  6. 220 IFA$="_"THENFORL=40TO800STEP40:FORK=0TO19:IFPEEK(1035+L+K)=86THEN210
  7. 230 IFA$="_"THENNEXTK,L:PRINT"[147]GEWONNEN MIT";O;"ZUEGEN!":END
  8. 235 IFA$=""ANDX<14THENX=X+1
  9. 240 IFA$="[157]"ANDX>0THENX=X-1
  10. 250 IFA$=""ANDY<14THENY=Y+1
  11. 260 IFA$="[145]"ANDY>0THENY=Y-1
  12. 270 IFA$=" "THENO=O+1:GOSUB2010:PRINTO;" ZUEGE[145]":GOTO210
  13. 280 IFPEEK(COL-54272)=90THENPOKECOL,1
  14. 285 IFPEEK(COL-54272)=86THENPOKECOL,14
  15. 290 IFPEEK(COL-54067)=90THENPOKECOL+205,1:GOTO210
  16. 295 IFPEEK(COL-54067)=86THENPOKECOL+205,14:GOTO210
  17. 2010 FOR A=0 TO 200 STEP 40:FORB=0TO5:PPO=A+B+X+Y*40+1075
  18. 2040 IF PEEK(PPO)=90 THEN POKE54272+PPO,14:POKE PPO,86:GOTO2060
  19. 2050 POKE54272+PPO,1:POKEPPO,90
  20. 2060 NEXTB,A:RETURN
  21.