home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1990 November & December / rerun-1990-11-12.d64 / geostripper (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  82 lines
  1. 0 printchr$(147)"place geos work disk in drive, hit a key":geta$:if a$=""then0
  2. 1 dr=8:fi$="geostripper":ty$=chr$(6):goto 9
  3. 2 hi=int(a/256):lo=a-hi*256:print#15,"m-r"chr$(lo)chr$(hi)
  4. 3 get#15,a$:a=asc(a$+chr$(0)):return
  5. 4 print#15,"u1:"2;0;tr;sc:return
  6. 5 print#15,"u2:"2;0;tr;sc:return
  7. 6 print#15,"b-p:"2;ps:return
  8. 7 get#2,a$:a$=left$(a$+chr$(.),1):return
  9. 8 print#2,chr$(a);:return
  10. 9 dim d$(29):print "creating "fi$:open3,dr,3,fi$+",u,w"
  11. 10 read a$:print ".";:if a$="-1" then close 3:goto 15
  12. 11 for i=1 to len(a$):if mid$(a$,i,1)=" " then a$=left$(a$,i-1)+mid$(a$,i+1)
  13. 12 next:for i=1 to len(a$) step 2:h$=mid$(a$,i,1):l$=mid$(a$,i+1,1)
  14. 13 h=16*(val(h$)-(h$>"@" and h$<"g")*(asc(h$)-55))
  15. 14 print#3,chr$(h+(val(l$)-(l$>"@" and l$<"g")*(asc(l$)-55)));:next:goto 10
  16. 15 open 15,dr,15:open 2,dr,2,"#":open 3,dr,3,fi$:close 3
  17. 16 a=656:gosub 2:db=a:a=660:gosub 2:de=a:tr=18:sc=db:gosub 4
  18. 17 ps=de:gosub 6:for i=0 to 29:gosub 7:d$(i)=a$:next:tr=asc(d$(1))
  19. 18 sc=asc(d$(2)):gosub 4:gosub 7:xt$=a$:gosub 7:xs$=a$:gosub 4
  20. 19 a=0:gosub 8:a=255:gosub 8:a=3:gosub 8:a=21:gosub 8:gosub 5
  21. 20 d$(19)=d$(1):d$(20)=d$(2):d$(1)=xt$:d$(2)=xs$:d$(21)=chr$(0):d$(22)=ty$
  22. 21 d$(23)=chr$(90):d$(24)=chr$(07):d$(25)=chr$(30):d$(26)=chr$(11)
  23. 22 d$(27)=chr$(23):tr=18:sc=db:gosub 4:ps=de:gosub 6
  24. 23 for i=0 to 29:print#2,left$(d$(i),1);:next:gosub 5:close 2:close 15
  25. 24 print:print "done!":end
  26. 25 :
  27. 26 data 0315bffffff0800018bf 8014a08012bf801f8400 018e0001840001bf97f1
  28. 27 data a0fc13bf97f580008987 ff918400338e005f8400 adbf81d9a082f1bf8261
  29. 28 data 8401c1ffffff83060000 04ff0300046762537472 6970706572202056312e
  30. 29 data 300000004057696c6c69 616d20432e20436f6c65 6d616e20000000000000
  31. 30 data 00000000000000000000 00000000000000000000 00000000000000000000
  32. 31 data 00000000000000005475 726e732061205374616e 642d416c6f6e65206765
  33. 32 data 6f42617369632050726f 6772616d206261636b20 696e746f20736f757263
  34. 33 data 6520636f64652e000000 00000000000000000000 00000000000000000000
  35. 34 data 00000000000000000000 00000000203d05203205 205a05a909850fa94b85
  36. 35 data 0e200bc2a016a907910c 20e7c120f604ad148485 05ad1384850420e4c120
  37. 36 data f604a079b98c06990280 8810f720e7c120f604a9 098503a94b85022074c2
  38. 37 data 20f604a9008d96842083 c22086c2ee9684ad9684 c90a90f02077c2ad8d84
  39. 38 data c9039003ce8d84ad4a09 20b0c220a1c24c2cc2a5 ba8d4a098d4909ad8d84
  40. 39 data c901f025ad0fc0c92090 1ead9084f019290f8d48 09ad8e84290fcd4809f0
  41. 40 data 07adc4882940f003ee8d 844ce1c1ae8d84caf015 20d0048d490920b0c220
  42. 41 data a1c28af006204b07b850 eb60ad8d84c901f01b18 69088d4809ad49091869
  43. 42 data 01cd48099002a908a8b9 8684f0f09860ad490960 8af00568684c4b0760a9
  44. 43 data 12cd0fc01007ad13c010 02a53f60adb784d01ca9 1aa2054c3605203205a5
  45. 44 data 07186908850718a90865 0a850a9002e60b4c24c1 a90ea2058db1848eb284
  46. 45 data 60a9022039c1a980852f 20ff04300ead008c8d58 0520b4c1e803008c0060
  47. 46 data 20ff041020adfd050980 8dfd05ad020609808d02 06ad0d0609808d0d06ad
  48. 47 data 800609808d8006207d04 a9068d7d06a9268d7c06 ae8d84cad008a9008d7c
  49. 48 data 068d7d06a9068d1406a4 bab986841005a9008d14 0620a1c2201d07a9008d
  50. 49 data 4b09a909850da94b850c a9068510a9068517a923 8516a9058503a9fb8502
  51. 50 data 200507a502c902d0034c 6704c906d00ea9078503 a98f8502200507b850aa
  52. 51 data c914d00620b404b850a0 60810b820a18060b8214 5c091004040511191211
  53. 52 data 3b7c0602114c06112a00 186f6e206469736b3a1b 00c2df0005ff82fe8004
  54. 53 data 008203800400b80380f8 00c0000380cc00000003 80c6fdd99e0380c6e0d9
  55. 54 data b30380c6c0d9b30380c6 c0cf3f0380c6c0cf3003 80ccc0c6330380f8c0c6
  56. 55 data 1e038004008203800400 810306ff817f05ff0cbf 2606000006108406a914
  57. 56 data 8d1d854cbfc20315bfff fff0800018bf8014a080 12bf801f8400018e0001
  58. 57 data 840001bf8bf9a0fe09bf 8bf980008187ff818400 018e0001840001bf8001
  59. 58 data a08001bf8001840001ff ffff8306010004ff0300 0462617369632070726f
  60. 59 data 67202056312e30000000 00000000000000000000 00000000000000000000
  61. 60 data 00626173696300a97185 3ca900853ba9e5853a20 ff041004063a263b4c56
  62. 61 data c2ad490938e9080aa8b9 45078502b946078503a0 00b102f00ac9a0f00699
  63. 62 data 5c09c8d0f2a900995c09 601e843084dc88e020b0 07ca8a0aa8b85021e073
  64. 63 data d00aa908850da9f7850c d01de02a900aa909850d a904850cd00f8ae9130a
  65. 64 data a8b91a09850cb91b0985 0da9078503a9bc850220 05074c6704810b101099
  66. 65 data 070111480018496e7365 7274206e657720646973 6b20696e746f20646973
  67. 66 data 6b2064726976652e1b00 810b10100a090c10300c 011148004e6f7420456e
  68. 67 data 6f75676820426c6f636b 7300496e76616c696420 547261636b00496e7375
  69. 68 data 6666696369656e742053 706163650046756c6c20 4469726563746f727900
  70. 69 data 46696c65204e6f742046 6f756e64004261642042 414d20696e2044726976
  71. 70 data 6500556e6f70656e6564 20564c49522046696c65 00537472756374757265
  72. 71 data 204d69736d6174636800 427566666572204f7665 72466c6f7700435f4552
  73. 72 data 52004e6f204465766963 65004e6f204865616465 7200556e666f726d6174
  74. 73 data 746564204469736b004e 6f204461746120426c6f 636b0044617461204368
  75. 74 data 65636b73756d00496e63 6f6d70617461626c6520 46696c65747970657300
  76. 75 data 57726974652056657269 66790057726974652050 726f7465637400486561
  77. 76 data 64657220436865636b73 756d004944204d69736d 6174636800444f53204d
  78. 77 data 69736d61746368003f3f 3f3f3f00182a20446973 6b204572726f72202a00
  79. 78 data ca07dc07ea07fd070c08 1b082c08040904093f08 52086208680872087c08
  80. 79 data 8d089b08a908c008cd08 db080409eb08
  81. 80 data -1
  82.