home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 3 / Tiger_Disk_003_1994-06_Tiger-Crew-Disk_de_Side_A.d64 / w4 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  36 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr
  2. 10 clr:poke53280,0:poke53281,0
  3. 20 print"[147][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  4. 30 print"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
  5. 40 print"[194][158]    sys - orter   commodoore vc-64    [194]";
  6. 50 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]";
  7. 60 print"[194][129]  copyright <c> 1985 by dieter plaum  [194]";
  8. 70 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";
  9. 75 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  10. 80 print"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
  11. 90 print"[194]bitte geben sie den programm-namen ein[194]";
  12. 100 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  13. 105 printtab(11)"[158][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][145][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:poke204,0:fori=1to16
  14. 110 getd$
  15. 111 ifd$=""then110
  16. 120 ifd$=chr$(13)then200
  17. 130 printd$;:g$=g$+d$:next
  18. 200 open1,8,0,g$:get#1,a$,b$
  19. 220 ifa$=""thena$=chr$(0)
  20. 230 ifb$=""thenb$=chr$(0)
  21. 240 print:print"start-adresse des programmes ":printg$" bei :[158]";asc(a$)+256*asc(b$)
  22. 250 close1:print"noch eine start-adresse suchen < j/n > ?":poke204,1
  23. 260 gete$:ife$=""then260
  24. 270 ife$="j"then10
  25. 280 ife$="n"then5000
  26. 290 goto260
  27. 5000 print"[147]":poke53280,0:poke53281,0
  28. 5001 printtab(8)"programm beenden        [1]"
  29. 5002 printtab(8)"programm wiederholen    [2]"
  30. 5003 printtab(8)"zum hauptmenue          [3]"
  31. 5004 poke198,0:wait198,1:gete$
  32. 5005 ife$="1"thensys64738
  33. 5006 ife$="2"thenclr:goto10
  34. 5007 ife$="3"thenprinttab(13)"bitte warten":load"menue",8
  35. 5008 goto5004
  36.