home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9405a.d64 / list (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  743b  |  41 lines
  1. 10 PRINT"[147]LISTINGS IN EINEM PROGRAMM?
  2. 20 [141]400
  3. 30 [153]"DAS GEHT AUCH INCLOSEBASIC:
  4. 35 GOSUB400
  5. 40 X$="LIST 49-85":GOSUB200:PRINT
  6. 46 :
  7. 47 :
  8. 48 :
  9. 49 REM WARMSTARTZEIGER AUF RETURN
  10. 50 :POKE768,212:POKE769,168
  11. 58 REM LIST MIT GOSUB AUFRUFEN
  12. 59 REM UND DANACH UEBERSPRINGEN
  13. 60 :GOSUB70:GOTO80
  14. 66 REM INTERPRETERAUFRUF MIT LIST-TOKEN
  15. 67 REM DANACH AUTOMATISCH RETURN
  16. 68 REM ,0 FUER GESAMTES LISTING
  17. 70 :POKE780,27:SYS42999,49-85
  18. 78 REM ZEIGER SOFORT! WIEDERHERSTELLEN
  19. 80 :POKE768,139:POKE769,227
  20. 87 :
  21. 88 :
  22. 89 :
  23. 90 GOSUB400
  24. 100 PRINT:PRINT"SEHEN SIE ?
  25. 110 [128]
  26. 199 :
  27. 200 Z[178]4:[141]300
  28. 210 [129]J[178]1[164][195](X$)
  29. 220 [153]" CMD";:[129]P[178]1[164]5:[130]
  30. 230 [153][202](X$,J,1);" WAITCMD";
  31. 240 [129]P[178]0[164]100[170]300[172][187](0):[130]P,J
  32. 250 [153]" CMD";:Z[178]3:[141]300
  33. 260 [142]
  34. 299 :
  35. 300 [129]I[178]1[164]Z:[153]" CMD";
  36. 310 [129]P[178]0[164]249:[130]
  37. 320 [153]" WAITCMD";:[129]P[178]0[164]249:[130]P,I
  38. 330 [153]" CMD";:[142]
  39. 399 :
  40. 400 [129]I[178]0[164]1499:[130]:[142]
  41.