home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9204a.d64 / furzeditor (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  869b  |  26 lines
  1. 1 FORI=50000TO50022:READA:POKEI,A:NEXT
  2. 5 A$="T":B=13:D=4:W=129
  3. 6 PRINTCHR$(147):PRINT:PRINT:PRINT"  [198]URZEDITOR"SPC(7)"('87 BY [202]OMO [215]ALLA)"
  4. 10 PRINTCHR$(14)CHR$(8):PRINT:PRINT"  [193]NZAHL DER '[194]LUBBE'(1-23)?"B
  5. 11 PRINTCHR$(145)TAB(27);:INPUTB
  6. 13 PRINT:PRINT:PRINT"  [198]URZDAUER?"D:PRINTCHR$(145)TAB(11);:INPUTD
  7. 14 PRINT:PRINT:PRINT"  [198]EUCHT ODER [212]ROCKEN? "A$CHR$(157)CHR$(157)CHR$(157);
  8. 15 INPUTA$:W=129
  9. 16 IFA$="F"THENW=17
  10. 17 PRINT:PRINT:PRINT"  ([218]) =>[218]UFALLSFURZ"
  11. 18 PRINT:PRINT:PRINT"  ([206]) =>[218]URZ NEU KREIEREN"
  12. 19 PRINT:PRINT:PRINT"  (*) =>[206]OCHMAL FURZEN"
  13. 20 FORI=0TO24:POKE54272+I,0:NEXT
  14. 30 SD=54272+14:POKESD+10,15:POKESD+6,240:POKESD+4,W
  15. 40 FORI=0TOB:POKE2,(7-I)*5+85:SYS50000:FORK=1TOI*D:NEXT:NEXT
  16. 60 GETG$:IFG$=""THEN60
  17. 70 IFG$="Z"THENB=INT(RND(1)*15):D=INT(RND(1)*12):W=17:W=W+112*SGN(INT(RND(1)*4))
  18. 71 A$="T":IFW=17THENA$="F"
  19. 72 PRINTCHR$(19):FORI=1TO5:PRINT:NEXT:PRINTSPC(27)"?"B CHR$(157)"  "
  20. 73 PRINT:PRINT:PRINT"  [198]URZDAUER?"D CHR$(157)"  "
  21. 74 PRINT:PRINT:PRINT"  [198]EUCHT ODER [212]ROCKEN? "A$
  22. 75 IFG$="N"THEN GOTO6
  23. 76 GOTO 30
  24. 80 DATA 120,162,0,160,15,136,208,253,232,142,15,212,228,2,208,243,169,0
  25. 90 DATA 141,15,212,88,96
  26.