home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh41.d64 / rescratch (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  933b  |  52 lines
  1. 100 REM ------------------------------
  2. 110 REM -                             -
  3. 120 REM -       "[210][197][211][195][210][193][212][195][200]"           -
  4. 130 REM - STELLT EIN GELOESCHTES FILE -
  5. 140 REM -        WIEDER HER           -
  6. 150 REM -                             -
  7. 160 REM -------------------------------
  8. 170 :
  9. 180 REM ***** HAUPTPROGRAMM *****
  10. 190 :
  11. 200 AD=$EFBB
  12. 210 (null) 18,0,AD
  13. 220 PRINTCHR$(147)CHR$(14)CHR$(8)
  14. 230 :
  15. 240 (null) LESEN
  16. 250 (null) SCHLEIFE
  17. 260 : (null) NAME
  18. 270 : (null) AENDERN
  19. 280 (null) SCHLEIFE
  20. 290 :
  21. 300 REM ***** UNTERPROGRAMME *****
  22. 310 :
  23. 320 (null) LESEN
  24. 330 : (null)
  25. 340 : IF (null)<>0 THEN END
  26. 350 : N=0
  27. 360 RETURN
  28. 370 :
  29. 380 (null) NAME
  30. 390 : N=N+1
  31. 400 : IF N>8 THEN (null) LESEN:(null) NAME
  32. 410 : PT=(N-1)*32+2
  33. 420 : A=PEEK(AD+PT)
  34. 430 : IF A<>0 AND A<>128 (null) NAME
  35. 440 : A=PEEK(AD+PT+1)
  36. 450 : IF A=0 (null) NAME
  37. 460 : FOR X= 3 TO 18
  38. 470 :  PRINTCHR$(PEEK(AD+PT+X));
  39. 480 : NEXT X
  40. 490 RETURN
  41. 500 :
  42. 510 (null) AENDERN
  43. 520 : PRINT"  [210][197][211][195][210][193][212][195][200]? [J/N] [146]";
  44. 530 (null) TASTE: GET W$:IF W$="N" (null) ENDE
  45. 540 :            IF W$<>"J" (null) TASTE
  46. 550 : PRINT W$;
  47. 560 : POKE AD+PT,$80+2
  48. 570 : (null)
  49. 580 (null) ENDE
  50. 590 : PRINT:PRINT
  51. 600 RETURN
  52.