home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh8x / sh80b.d64 / dokgeofile (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  2.2 KB  |  38 lines
  1. 1 POKE53280,0:POKE53281,0
  2. 2 PRINTCHR$(14)"[147]"TAB(15)"[194]AMDOK 10"TAB(97)"VON"TAB(49)"[200]ANS-[202]UERGEN [218]IETHMANN"
  3. 3 PRINT"[194]ITTE DEFEKTE [199]EO[198]ILE [196]ISKETTE"TAB(80)"IN DAS [204]AUFWERK LEGEN"
  4. 4 PRINT"UND EINE [212]ASTE DRUECKEN":WAIT203,64,64:OPEN1,8,15,"I":OPEN2,8,2,"#"
  5. 5 PRINT#1,"U1:"2;0;10;5:PRINT#1,"B-P"2;20:GET#2,A$:A=ASC(A$+CHR$(0))
  6. 6 IFA<>117THENPRINT"[147]NICHT AUF DIESER [196]ISK ANWENDBAR!":CLOSE2:CLOSE1:END
  7. 7 READN:IFN<0THEN9
  8. 8 PRINT#1,"M-W"CHR$(LB)CHR$(05)CHR$(1)CHR$(N):LB=LB+1:GOTO7
  9. 9 ON ABS(N) GOTO10,11,14
  10. 10 READ LB:GOTO 7
  11. 11 IF SI=1 THENPRINT#1,"U2:";2;0;T;S
  12. 12 READ T: READ S
  13. 13 PRINT#1,"U1:";2;0;T;S:SI=1:GOTO7
  14. 14 PRINT#1,"U2:";2;0;T;S:PRINT#1,"I"
  15. 15 CLOSE2:CLOSE1:PRINT"[199]EO[198]ILE [196]ISKETTE NUN WIEDER"TAB(80)"VERWENDBAR!"
  16. 16 DATA-2,18,0,-1,0,18,1,65,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17,249
  17. 17 DATA187,31,9,23,82,18,21,255,255,31,21,255,255,31,0,0,0,0,0,0,0,0,0,0,0,0
  18. 18 DATA13,233,45,29,15,183,246,22,3,33,32,0,2,2,64,0,0,0,0,0,16,252,253,7,0,0,0
  19. 19 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,199,255,7,18,255,255,3,18,255,255
  20. 20 DATA3,10,85,117,1,18,255,255,3,18,255,255,3,18,255,255,3,17,255,255,1,17,255
  21. 21 DATA255,1,17,255,255,1,17,255,255,1,17,255,255,1,71,69,79,70,73,76,69,160
  22. 22 DATA160,160,160,160,160,160,160,160,160,160,66,73,160,50,65,160,160,160,160
  23. 23 DATA19,8,71,69,79,83,32,102,111,114,109,97,116,32,86,49,46,48,0,0,0,0,0,0,0
  24. 24 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  25. 25 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2,18,1,-1,0,18,9,195
  26. 26 DATA10,4,71,69,79,70,73,76,69,160,160,160,160,160,160,160,160,160,10,17,1
  27. 27 DATA6,88,9,28,11,44,188,0,0,0,131,23,13,71,69,79,77,69,82,71,69,160,160,160
  28. 28 DATA160,160,160,160,160,23,7,1,6,88,7,6,13,9,66,0,0,0,131,1,16,67,111,109
  29. 29 DATA109,111,100,111,114,101,95,71,69,160,160,160,160,1,8,1,8,87,11,3,11,28
  30. 30 DATA7,0,0,0,131,13,2,69,100,39,115,32,83,112,111,114,116,115,160,160,160,160
  31. 31 DATA160,13,15,1,7,88,7,6,13,9,51,0,0,0,131,15,11,73,110,32,115,116,97,116
  32. 32 DATA101,114,115,160,160,160,160,160,160,15,8,1,7,88,7,6,13,4,4,0,0,0,131,16
  33. 33 DATA8,79,117,116,32,111,102,32,115,116,97,116,101,114,115,160,160,16,0,1,7
  34. 34 DATA87,8,12,10,52,4,0,0,0,131,16,10,84,101,110,110,105,115,32,80,108,97,121
  35. 35 DATA101,114,115,160,160,16,2,1,7,87,8,12,10,55,4,0,0,0,131,15,6,71,101,110
  36. 36 DATA101,114,97,108,32,76,101,116,116,101,114,160,160,15,19,1,7,87,8,12,10,47
  37. 37 DATA4,0,-3
  38.