home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos3.d64 / decode (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  1KB  |  48 lines
  1. 5 DIM A(300)
  2. 10 OPEN 3,8,3,"WORKFILE,S,R"
  3. 20 FOR I = 0 TO 260
  4. 30 GET#3,A$
  5. 40 A(I)=ASC(A$+CHR$(0))
  6. 50 NEXT I
  7. 60 CLOSE 3
  8. 100 OPEN 5,8,15,"I0:"
  9. 105 J = 0
  10. 110 FOR I = 40 TO 255
  11. 120 PRINT#5,"M-W"CHR$(I)CHR$(4)CHR$(1)CHR$(A(J))
  12. 130 J = J+1
  13. 140 NEXT I
  14. 250 FOR I = 0 TO 50
  15. 260 PRINT#5,"M-W"CHR$(I)CHR$(5)CHR$(1)CHR$(A(J))
  16. 270 J = J+1
  17. 280 NEXT I
  18. 300 I = 0
  19. 310 READ A
  20. 320 IF A=-1 THEN 360
  21. 330 X = X+A
  22. 340 PRINT#5,"M-W"CHR$(I)CHR$(6)CHR$(1)CHR$(A)
  23. 345 I = I+1
  24. 350 GOTO 310
  25. 360 IF X<> 9051 THEN CLOSE5:END
  26. 400 REM AUSFUEHREN
  27. 405 INPUT"DISKETTE EINLEGEN";N$
  28. 410 PRINT#5,"I0:"
  29. 420 PRINT#5,"M-E"CHR$(0)CHR$(6)
  30. 430 INPUT#5,A,B$,C,D
  31. 440 PRINT A,B$,C,D
  32. 450 REM
  33. 460 FOR I=64 TO 81
  34. 470 READ A
  35. 480 PRINT#5,"M-W"CHR$(I)CHR$(3)CHR$(1)CHR$(A)
  36. 490 NEXTI
  37. 500 PRINT#5,"M-W"CHR$(0)CHR$(0)CHR$(1)CHR$(144)
  38. 600 CLOSE5
  39. 610 PRINT "ALLES KLAR!":END
  40. 1000 REM
  41. 1001 DATA169,0,141,101,6,169,20,141,0,3,169,15,141,1,3,169,254,141,100,6,173
  42. 1002 DATA0,3,133,6,208,8,165,7,141,100,6,238,100,6,173,1,3,133,7,169,128,133
  43. 1003 DATA0,165,0,48,252,160,0,185,2,3,89,42,4,153,2,3,200,204,100,6,208,241
  44. 1004 DATA169,144,133,0,165,0,48,252,173,0,3,208,193,173,101,6,208,16,238,101
  45. 1005 DATA6,169,20,141,0,3,169,17,141,1,3,76,15,6,96,0,0,-1
  46. 1010 REM
  47. 1011 DATA136,208,250,132,62,169,255,76,78,6,0,0,0,0,133,72,96,96
  48.