home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / hello (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  111 lines
  1. 1 REM HELLO
  2. 5 IFPEEK(51201)<>12ORPEEK(51202)<>200ORPEEK(52222)<>5THEN7
  3. 6 GOTO10
  4. 7 LOAD"ROUTINES V4",8,1
  5. 10 V=53248:S=V+1024:SYS52176:              POKE56,160:POKE57,0
  6. 20 PRINT"[147]":FORX=STOS+24:POKEX,0:NEXT
  7. 21 FORX=1024TO1034:READA:POKEX+54272,PEEK(53281)AND15:POKEX,A:NEXT
  8. 22 DATA169,228,141,8,3,169,167,141,9,3,96
  9. 23 SYS1024 :REM  __ WEDGE DEACTIVATOR
  10. 25 Q$="'"
  11. 30 OPEN8,8,8,"#":OPEN15,8,15,"UA:8 0 18 0":PRINT#15,"B-P:8 154"
  12. 40 GET#8,N1$,N2$,A$,A$,A$,S$,A$,A$,I1$:CLOSE8:CLOSE15
  13. 45 IFI1$<>"\"THENPOKE65533,.:POKE65534,.:POKEV+32,.:GOTO60
  14. 50 POKE65533,VAL(N1$+N2$):POKE65534,VAL(S$)
  15. 60 CD$="":SI=USR(65534)
  16. 80 BS$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  17. 90 SP$="                                       [160]"
  18. 120 DIMIX$(22,1),IX(22,1),C%(4):FORI=1TO4:READC%(I):NEXT
  19. 121 DATA2,5,6,7
  20. 150 POKEV+33,1:POKEV+32,C%(SI)
  21. 160 READIN$:TT$="[204][207][193][196][211][212][193][210][160][206]UMBER "+IN$
  22. 170 PRINT"[144]";SP$;"";TAB(19-LEN(TT$)/2);TT$:PRINT""
  23. 190 FORCO=1TO22
  24. 192 FORC1=.TO1
  25. 194 READIX$(CO,C1),IX(CO,C1)
  26. 196 IFIX$(CO,.)="!"THENCX=CO-1:CO=22:C1=3
  27. 198 NEXTC1
  28. 200 NEXTCO
  29. 210 PRINT"[150]";
  30. 230 FORCO=1TOCX
  31. 240 POKE646,C%(IX(CO,.))
  32. 250 IFSI=IX(CO,.)THENPRINT"";
  33. 251 IFIX(CO,.)<>IX(CO-1,.)THENPRINT"[211]IDE"IX(CO,.)"[146] ";:GOTO290
  34. 252 PRINT"      [146]  ";
  35. 290 PRINTCHR$(CO+96)"[160]= "IX$(CO,.);
  36. 292 PRINTSPC(22-LEN(IX$(CO,.)));
  37. 295 IFSI=IX(CO,.)THENPRINT"";
  38. 300 IFIX(CO,.)<>IX(CO-1,.)THENPRINT"[211]IDE"IX(CO,.)"[146][157]";:GOTO310
  39. 304 PRINT"      [146]";
  40. 310 NEXT
  41. 320 PRINTLEFT$(CD$,25)"[144][215]HICH "SPC(24)"[216][146] TO EXIT";BS$;
  42. 329 K$="?"
  43. 330 KS$=K$:B$="[157]":SP$(0)=""+K$+"[146]":SP$(1)="[146]"+K$+"[146]":PRINTSP$(SP+1);B$;:SP=NOTSP
  44. 331 GETK$:FORZD=1TO222:NEXT:IFK$<" "ORK$>"Z"THENK$=KS$:GOTO330
  45. 340 IFK$="X"THEN19000
  46. 350 IFK$<"A"THEN330
  47. 355 IFK$>CHR$(CX+64)THEN330
  48. 360 PRINTCHR$(ASC(K$)OR32);"[157]";
  49. 380 K=ASC(K$)AND31
  50. 390 IFK<=CXTHEN30000
  51. 400 GOTO330
  52. 9999 END
  53. 10000 D=PEEK(186):N$="HELLO":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
  54. 11000 DATA17
  55. 12000 DATA"[208]IXEL [208]AGE",1,PIXEL PAGE,
  56. 12001 DATA"[195]ONTENTS [205]AP",1,CONTENTS MAP,
  57. 12004 DATA"[208]AYLOAD [208]ROGRAMS",1,PAYLOAD,2
  58. 12005 DATA"[208]OWER[208]LAY [208]ROGRAMS",1,PAYLOAD,1
  59. 12006 DATA"[195][207][205][193][204][160][212]UTOR",1,COMAL TUTOR,
  60. 12008 DATA"[208]APERLESS [208]AGES",2,PRESENTER,1
  61. 12009 DATA"[201]NFLUX",2,PRESENTER,2
  62. 12010 DATA"[211]TEINMAN [212]EMPLATE",2,SPREADSHEET,2
  63. 12011 REM                                   DATA"[205]ATH [210]EFLECTIONS",2,PRESENTER,3
  64. 12012 DATA"[198]OR [217]OUR [201]NFORMATION",2,PRESENTER,4
  65. 12040 DATA"[198]EEDBACK [196]ISK [205]AKER",2,F.B MAKER.1,
  66. 15999 DATA!,,!,
  67. 18000 RETURN
  68. 19000 PRINT"[147][144]   [204][207][193][196][211][212][193][210][160]IS NOT PUBLIC DOMAIN."
  69. 19005 PRINT"   [204][207][193][196][211][212][193][210][160]IS UNPROTECTED FOR YOUR"
  70. 19010 PRINTTAB(28);"CONVENIENCE.":PRINT"[215]E WANT YOU TO BE ABLE";
  71. 19015 PRINT" TO COPY, MODIFY, AND LEARN FROM THE";
  72. 19017 PRINT" PROGRAMS ON [204][207][193][196][211][212][193][210].":PRINT:PRINT"[208]LEASE RESPECT THIS POLICY:"
  73. 19020 PRINT:PRINT"[196]O NOT ALLOW UNAUTHORIZED COPIES":PRINTTAB(29)"TO BE MADE."
  74. 19022 PRINT:PRINT"([211]CHOOLS MAY MAKE A COPY FOR EACH [195]-64.)"
  75. 19025 PRINT:PRINT"[212]YPE [210][213][206] THEN PRESS <[210][197][212][213][210][206]> TO RETURN  TO [204][207][193][196][211][212][193][210]."
  76. 20000 END
  77. 23000 POKE646,C%(VAL(S$)):PRINT"[147][212]HE DISKETTE CURRENTLY IN YOUR DRIVE IS"
  78. 23010 IFI1$<>"\"THENPRINT"     NOT A REGULAR [204][207][193][196][211][212][193][210] ISSUE.":GOTO24000
  79. 23020 PRINT"         SIDE "S$" OF [204][207][193][196][211][212][193][210][160]"MID$(STR$(VAL(N1$+N2$)),2)"."
  80. 24000 POKE646,C%(IX(K,.)):PRINT""TAB(17-LEN(IX$(K,.))/2);Q$;IX$(K,.);Q$;" IS ON"
  81. 24010 PRINT"         SIDE"IX(K,.)"OF [204][207][193][196][211][212][193][210] "IN$"."
  82. 24020 PRINT"[144]        [201]NSERT THAT SIDE, PLEASE"
  83. 24030 PRINTSPC(19)"&"
  84. 24040 PRINTSPC(12)"PRESS SPACE BAR"
  85. 24050 PRINT"   OR PRESS [210][197][212][213][210][206][146][160]TO RETURN TO MENU"
  86. 24055 PRINT:PRINT"  ([201] SUGGEST YOU TURN THE DISK OVER.)
  87. 24060 [151]198,.:[146]198,1:[161]K$:[139]K$[179][177]" "[167][141]63002:[141]63000:[138]
  88. 24080 [153]
  89. 30000 [143]     READ SIDE INDICATOR
  90. 30002 [141]63000:[141]63002
  91. 30003 S$[178][196](IX(K,.)):[137]30010
  92. 30004 [159]8,8,8,"#":[159]15,8,15,"UA:8 0 18 0":[152]15,"B-P:8 154"
  93. 30005 [161]#8,N1$,N2$,A$,A$,A$,S$,A$,A$,I1$,I2$:[160]8:[160]15
  94. 30010 [151]646,C%(IX(K,.)):[151]V[170]32,C%([197](S$))
  95. 30020 [139][197](S$)[179][177]IX(K,.)[167] 23000
  96. 30025 [151]65535,10[172][197](S$)[170]IX(K,1)
  97. 30030 [139]IX$(K,1)[178]"PRESENTER"[175][194](597)[179][177]0[167][151]6400,0:[151]44,25:[138]
  98. 40000 [151]53281,.:[153]"LOAD(null)AUNCHING "IX$(K,.);"STOP";
  99. 40010 [151]599,0
  100. 40015 [129]I[178]0[164]23:[151]S[170]I,0:[130]
  101. 40016 [151]198,0:[151]631,13:[151]632,13
  102. 40017 [139] IX$(K,1)[179][177]"PRESENTER"[167][151]597,0:[137]40030
  103. 40020 [153]"STOPL(null)"[199](34)IX$(K,1)[199](34)",8":[153]"RUN"
  104. 40025 [151]6400,0:[151]44,25:[151]198,2:[128]
  105. 40030 [153]"LOAD"[199](34);IX$(K,1);[199](34)",8":[153]"RUN"
  106. 40040 [151]631,13:[151]632,13:[151]198,2:[151]65535,10[172][197](S$)[170]IX(K,1):[128]
  107. 63000 [129]I[178].[164]24:[151]S[170]I,.:[130]:[151]S[170]1,100:[151]S[170]2,100:[151]S[170]5,10:[151]S[170]6,2
  108. 63001 [151]S[170]24,15:[151]S[170]4,33:[129]DL[178]1[164]600:[130]:[151]2[170]4,32:[142]
  109. 63002 [129]I[178]0[164]24:[151]S[170]I,0:[130]:[151]S[170]1,40:[151]S[170]2,40:[151]S[170]5,10:[151]S[170]6,2
  110. 63003 [151]S[170]24,15:[151]S[170]4,33:[129]DL[178]1[164]600:[130]:[151]S[170]4,32:[142]
  111.