home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 83 / 083.d81 / i-message (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  58 lines
  1. 100 ifa=0thendv=peek(186):ifdv<8thendv=8
  2. 110 ifa=0thena=1:load"i-message.o",dv,1
  3. 120 gosub270
  4. 130 sys49152,9,1,"[208]ress [210][197][212][213][210][206] [198]or [206]ext [205]essage",4,chr$(13)
  5. 140 sys49152,15,13,"[205]ind-boggling, huh? [208]ress [211][208][193][195][197]...",7," "
  6. 150 fori=1to500:next:gosub430
  7. 180 poke198,0:wait198,15:geta$
  8. 190 sys49152+374
  9. 200 sys49152,1,14,"[208]ress [193]ny [198]-[203]ey [212]o [195]ontinue",7,"[133][134][135][136][137][138][139][140]"
  10. 210 sys49152,68,3,"[196]emo [193]gain or [209]uit? ([196][159]/[209][159])",4,"dq"
  11. 220 geta$:ifa$="d"then130
  12. 230 print"[144]":print""
  13. 240 print "load";chr$(34);f$;chr$(34)","dv
  14. 250 print"run"
  15. 260 poke631,13:poke632,13:poke198,2:end
  16. 270 print"[147]":poke53280,0:poke53281,0:iffthenreturn
  17. 280 poke214,10:print"[145]";
  18. 290 print"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
  19. 300 fori=1to12:print"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next:print""
  20. 310 fori=217to242:pokei,peek(i)or128:next
  21. 320 poke214,12:print"[145]"tab(2)"[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][164][164][164][164]"
  22. 330 fori=1to7:printtab(2)"[155]                                    [146][223]":next
  23. 340 printtab(2)"[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][163][163][163][163][146][223]"
  24. 350 print"[169][169][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][154][223]"
  25. 360 poke214,14:print"[145][155]";
  26. 370 fori=1to5:reada$:gosub380:next:goto390
  27. 380 printspc(20-len(a$)/2)""a$:a$="":return
  28. 390 f$="hello connect":print"":return
  29. 400 data"[201] [206][160][211] [212] [193] [206] [212][160][160][160][205][160][197][160][211] [211] [193] [199] [197]","by [202]effrey [204]. [202]ones"
  30. 410 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #83","[211]ubscriptions 1-800-831-2694"
  31. 420 data"[195]opyright ([195]) 1991 [211]oftdisk"
  32. 430 print"[147][146] [158][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
  33. 440 print" {$7d}[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][164][164][164][164][158][146]{$7d}"
  34. 450 print" [221][159]  [201][206][211][212][193][206][212][160][205][197][211][211][193][199][197][160][213][211][193][199][197] [193][206][196] [211][217][206][212][193][216]  [158][146][221]"
  35. 460 print" {$7d}[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][163][163][163][163][158][146]{$7d}"
  36. 470 print" [171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]"
  37. 480 print" {$7d} ADDR [159]= current location of code    [158]{$7d}"
  38. 490 print" {$7d} [159]since routine is relocatable       [158]{$7d}"
  39. 500 print" [171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]"
  40. 510 print" {$7d}        PRINT[160]MESSAGE & BOX         [158]{$7d}"
  41. 520 print" {$7d}       [156][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]        [158]{$7d}"
  42. 530 print" {$7d}[159]SYSaddr,line,text color,message$,box[158]{$7d}"
  43. 540 print" {$7d}[159]color,validation string$            [158]{$7d}"
  44. 550 print" {$7d}                                    {$7d}"
  45. 560 print" {$7d}Line [159]1-23 (Add 64 to cancel center) [158]{$7d}"
  46. 570 print" {$7d}Text color [159]0-15                     [158]{$7d}"
  47. 580 print" {$7d}Message$ [159]Can be in quotes. Will be  [158]{$7d}"
  48. 590 print" {$7d}[159]centered automatically.  No nulls.  [158]{$7d}"
  49. 600 print" {$7d}Box color [159]0-15                      [158]{$7d}"
  50. 610 print" [221][214]alidation [211]tring$ [159]if null, won't   [158][221]"
  51. 620 print" {$7d}[159]wait for key.  Otherwise will wait  [158]{$7d}"
  52. 630 print" {$7d}[159]for any of up to 255 [159]specified keys.[158]{$7d}"
  53. 640 print" [171]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[179]"
  54. 650 print" {$7d}Screen Save to $D800 [159]SYSaddr+7      [158]{$7d}"
  55. 660 print" {$7d}Restore Screen       [159]SYSaddr+374    [158]{$7d}"
  56. 670 print" [173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]";
  57. 680 print"";:return
  58.