home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 3 / Digital_Talk_03_1993-10-18_Digital_Talk_de_Side_B.d64 / mini-klickl..bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  456b  |  18 lines
  1. 0 rem ///  vor dem starten muss das prg
  2. 1 rem ///  >protect  .obj< geladen sein
  3. 2 rem ///                          (bj)
  4. 3 rem ---------------------------------
  5. 4 :
  6. 5 :
  7. 10  print"[147]  nimm doch mal die diskette 'raus und"
  8. 20  print"        tu sie dann wieder 'rein."
  9. 40  sys 49152
  10. 50  if peek (251)<>0 then 40
  11. 60  sys 49152
  12. 70  if peek (251) =0 then 60
  13. 80  print" nun ist sie draussen!"
  14. 90  sys 49152
  15. 100 if peek (251)<>0 then 90
  16. 110 fori=0to1200:next
  17. 120 print" und nun wieder drin"
  18.