home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 80 / 080.d81 / journal / JOURNAL (.txt) next >
Commodore BASIC  |  2022-08-26  |  1KB  |  40 lines
  1. 10 ifa=0thena=1:load"reader c800 low",8,1
  2. 20 fi$="t.journal"
  3. 30 print"[147]":gosub40:goto190
  4. 40 poke53280,0:poke53281,0:iffthenreturn
  5. 50 poke214,10:print"[145]";
  6. 60 fori=1to13:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next:print""
  7. 70 fori=217to242:pokei,peek(i)or128:next
  8. 80 poke214,12:print"[145]"tab(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  9. 90 fori=1to7:printtab(4)"[155]                                [151][146][223]":next
  10. 100 printtab(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][146][223]"
  11. 110 print"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
  12. 120 poke214,14:print"[145][155]";
  13. 130 fori=1to5:reada$:gosub140:next:goto150
  14. 140 printspc(20-len(a$)/2)""a$:a$="":return
  15. 150 :return
  16. 160 data"[203] [197][160][210][160][206] [193] [204] [211]","by [205]ark [202]ordan
  17. 170 [131]"(NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #80","(NULL)ubscriptions 1-800-831-2694"
  18. 180 [131]"lenopyright (len) 1991 (NULL)oftdisk"
  19. 190 a$(1)[178]"  (NULL)ead it  "
  20. 200 a$(2)[178]"  (NULL)(NULL)(NULL) it   "
  21. 210 a$(3)[178]"  (NULL)uit     ":it[178]1
  22. 220 [153]"open":[129]i[178]1[164]3:[153][163]15)a$(i):[153]:[130]
  23. 230 [151]214,24:[153]"on open(NULL)se len(NULL)(NULL)(NULL) (NULL)(NULL)/str$(NULL)(NULL)(NULL)open and (NULL)val(NULL)(NULL)(NULL)(NULL)open to select":[141]300
  24. 240 [161]a$:[139]a$[179][177]""[175]a$[179][177]"on"[175]a$[179][177][199](13)[167]240
  25. 250 ot[178]it:[139]a$[178][199](13)[167][141]310:[137]240
  26. 260 [139]a$[178]""[167]it[178]it[170]1:[139]it[177]3[167]it[178]1
  27. 270 [139]a$[178]"on"[167]it[178]it[171]1:[139]it[179]1[167]it[178]3
  28. 280 [141]290:[137]240
  29. 290 [151]214,3[170](ot[171]1)[172]2:[151]211,15:[158]58732:[153]"open"a$(ot)
  30. 300 [151]214,3[170](it[171]1)[172]2:[151]211,15:[158]58732:[153]""a$(it):[142]
  31. 310 [145]it[137]320,340,330
  32. 320 [158]51200,fi$,"(NULL)closevalclose(NULL) (NULL)closeatn (NULL) (NULL)":fi$[178]"":[142]
  33. 330 [153]"load":[128]
  34. 340 [129]i[178]0[164]9:[151]781,i:[158]59903:[130]:[151]781,24:[158]59903
  35. 350 a$[178]"kernals":[159]15,8,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15
  36. 360 [139]er[179][177]63[167][138]30
  37. 370 q$[178][199](34):[151]646,[194](53281):[153]"load"
  38. 380 [153]"load"q$a$q$",8"
  39. 390 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  40.