home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 127 / Tiger_Disk_127_20xx_Tiger-Crew-Disk_de_Side_B.d64 / gang validated (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  41 lines
  1. 1 rem *********************************
  2. 2 rem * gang validated   jan 87       *
  3. 3 rem *********************************
  4. 4 rem * will corley                   *
  5. 5 rem * 7551 twilight dr.             *
  6. 6 rem * sacramento, ca                *
  7. 7 rem * 95822                         *
  8. 8 rem *********************************
  9. 9 dc$="":for x=1 to 65:read a:dc$=dc$+chr$(a):next
  10. 10 poke 53280,11:poke 53281,12:print "[147]"
  11. 11 print tab(9) "gang validated   1541"
  12. 12 print tab(9) "[151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  13. 13 print tab(8)"(c) 1987 by will corley"
  14. 14 close 15:for x=1 to 4:d=7+x
  15. 15 open 15,d,15:close 15:a(x)=st:next
  16. 16 for x=1 to 4:if a(x)<>0 then 21
  17. 17 d=x+7:close 15:open 15,d,15
  18. 18 print#15,"m-w" chr$(0) chr$(6) chr$(34) mid$(dc$,1,34)
  19. 19 print#15,"m-w" chr$(34) chr$(6) chr$(31) mid$(dc$,35)
  20. 20 print#15,"m-w" chr$(12) chr$(0) chr$(2) chr$(18) chr$(0)
  21. 21 next x:close 15
  22. 22 for x=1 to 4:if a(x)<>0 then 24
  23. 23 d=x+7:c=11+x:close c:open c,d,15
  24. 24 next x
  25. 25 for x=1 to 4:if a(x)<>0 then 28
  26. 26 c=11+x
  27. 27 print#c,"m-w" chr$(3) chr$(0) chr$(1) chr$(224)
  28. 28 next x
  29. 29 for x=1 to 4:if a(x)<>0 then 32
  30. 30 c=11+x
  31. 31 print "close"c":";
  32. 32 next:print chr$(20)"[145][145][145]":end
  33. 33 rem ********************************        ********************************
  34. 34 data 120,169,1,141,85,2,169,15,133,132
  35. 35 data 169,2,133,163,32,189,193,169,86,141
  36. 36 data 0,2,169,13,141,1,2,162,6,104
  37. 37 data 157,59,6,202,208,249,104,104,169,235
  38. 38 data 72,169,232,72,162,1,189,59,6,72
  39. 39 data 232,224,7,208,247,169,1,76,105,249
  40. 40 data 169,1,76,105,249
  41.