home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-03_2000_CSW_Side_A.d64 / example1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  53 lines
  1. 100 ba=49152:poke828,ba-(int(ba/256)*256):poke829,int(ba/256)
  2. 110 dim co%(255)
  3. 115 fori=0to255:readco%(i):next
  4. 120 le=0
  5. 130 readda
  6. 140 ifda>=0thenpokeba+le,da:le=le+1:goto130
  7. 150 ifda=-1then200
  8. 160 read da$
  9. 170 fori=1tolen(da$):pokeba+le,co%(asc(mid$(da$,i,1))):le=le+1
  10. 176 next
  11. 180 goto130
  12. 200 poke830,le-(int(le/256)*256):poke831,int(le/256):sys834
  13. 250 end
  14. 490 rem convers. petscii to ascii data
  15. 500 data 0,0,0,0,0,0,0,0,0,0,0,0,0,13,0,0
  16. 510 data 0,0,0,0,127,0,0,0,0,0,0,0,0,32,0,0
  17. 520 data 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47
  18. 530 data 48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63
  19. 540 data 64,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111
  20. 550 data 112,113,114,115,116,117,118,119,120,121,122,91,156,93,94,95
  21. 560 data 96,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79
  22. 570 data 80,81,82,83,84,85,86,87,88,89,90,123,124,125,126,157
  23. 580 data 0,0,0,0,0,0,0,0,0,0,0,0,0,13,0,0
  24. 590 data 0,10,0,0,0,0,0,0,0,0,0,0,0,8,0,0
  25. 600 data 32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  26. 610 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  27. 620 data 96,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79
  28. 630 data 80,81,82,83,84,85,86,87,88,89,90,123,124,125,126,157
  29. 640 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  30. 650 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,227
  31. 990 rem enter data here
  32. 991 rem -2 string follows
  33. 992 rem -1 end of file
  34. 993 rem 0-255 ascii codes
  35. 1000 data 27,33,1,27,43,90,27,114,0,27,108,8
  36. 1010 data 27,40,45,3,0,1,3,0,27,40,45,3,0,1,2,0,27,40,45,3,0,1,1,0
  37. 1020 data 27,113,0,27,119,0,27,84
  38. 1030 data -2,"[210]emstedt was pleased :",34
  39. 1040 data 27,52,-2,"[198]inally, justice will be dealt to that tyrant. ",13,10
  40. 1050 data 27,69,-2,"[200]e",27,70,-2," won't get away this time for sure."
  41. 1060 data 27,53,34,13,10,10,-2,"[193]ndretto still showed doubts:",34
  42. 1070 data 27,52,-2,"[194]ut ",27,69,-2,"[200]e",27,70,-2," still has his ministers "
  43. 1080 data 13,10,-2,"doing his bidding. [200]is lawyers...",10
  44. 1090 data-2,"... are of no concern to me!",27,53,34,13,10,-2,"[193]nd [210]emstedt left."
  45. 1100 data 13,10,10,27,113,1,-2,"[205]eanwhile, in the forests outside the city,"
  46. 1110 data 13,10,-2,"dark, ominous forms gathered, and shrieking and ",13,10
  47. 1120 data -2,"wailing his ",27,113,3,-2,"minions of shadow",27,113,1
  48. 1130 data -2," prepared to attack the court ...",27,113,0,13,10,10,27,40,45,3,0
  49. 1140 data1,2,1,-2,"[195]onsidering what ",27,69,-2,"[200]e ",27,70,-2,"had in mind for "
  50. 1150 data -2,"that judge ",13,10,-2,"who would try to find him guilty, "
  51. 1160 data 27,69,-2,"[200]e ",27,70,-2,"smiled.",13,10,27,40,45,3,0,1,2,0
  52. 30000 data 12,-1
  53.