home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9111a.d64 / diskschreib. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  546b  |  21 lines
  1. 1 PRINT"[147][158]          DISKSCHREIBSCHUETZER        [134]":POKE53280,0:POKE53281,0
  2. 2 PRINT    "         VON ERIKA SCHULZ"
  3. 3 PRINT"[152]    DISKSICHERN ODER ENTSICHERN???"
  4. 4 PRINT  " >S< SICHERN   ODER  >E< ENTSICHERN":PRINT"[158][169]>Q< QUIT[223]"
  5. 5 PRINT"           [154]TASTE DRUECKEN[134]"
  6. 6 GET A$:IF A$=""THEN 6
  7. 7 IF A$="S" THEN A$="[203]" :GOTO 11
  8. 8 IF A$="E" THEN A$="A":GOTO 11
  9. 9 IF A$="Q" THEN GOTO 20
  10. 10 GOTO 6
  11. 11 OPEN 1,8,15,"I"
  12. 12 OPEN 2,8,2,"#"
  13. 13 PRINT#1,"M-W"CHR$(1)CHR$(1)CHR$(1)CHR$(65)
  14. 14 PRINT#1,"U1 2 0 18 0"
  15. 15 PRINT#1,"B-P 2 2"
  16. 16 PRINT#2,A$;
  17. 17 PRINT#1,"U2 2 0 18 0"
  18. 18 PRINT#1,"I"
  19. 19 CLOSE2:CLOSE1:PRINT"O.K.":WAIT198,1:RUN
  20. 20 END
  21.