Section 2 - Commodore Computers

More documents

Recommendations

Info

170 COM PUTEI Moy.1982. lssue 2A 170 COMPUTE! May. 1982. Issue 24 For people who would find il it Vel)' very difficult to enter comlllands commands or use the neyboaul, keyboard, the program below prints jJrinls messa.ges (or BASI C commands) 011 screen and allows (h e user 10 movp (l jJoinll'r (0 Ihe desiTed w OH/lIlId (' Iller it messages (or BASIC, commands) on screen and allows the user to move a pointer to the desired word and enter it into Ih(1 the (um/Jllft' computer. l'. It II rail can (lea/Jt accept ill/JIII input from jtorn either the I/ul I1ll1llt'r;r numeric keypad }{(7 /xJ(1 nrfrom orfrom a joystick. It II is t/('Siglll'{/ designed Io to worh work 011 on a PET willi with 1111' the Gm/Jllin Graphics keyboard, III')'boflrt!, blll but ille the cell/r{d central idea could be arlfl/JINI adapted to any filly colI/./JlIler. computer. Handicapped Programming Hilton B. Souther Lynchburg. Lynchburg, VA This program allows a person lO to build messages on the screen or could even be used lO program. The the screen or could even be used to program. The input is made by pressing a button on ajoystick a or by pressing g keyboard numeric pad no. 5. When the program first comes conies up, it gives you an option of moving a pointer with the numeric an option or moving a pointe r with the nume ric pad orr using the jjoystick; from then on, it responds based on the input. The program is set up li p for the joystick on the hi gh order bits on the user port. I I' joystick on the high order bits on the user port. If there is no joystick, all commands come from the numeric pad. Most or of the PET commands, except seldom used ones such as CMD, , are displayed on the screen. A pointer will be shown opposite the various COIllmands or BASIC words aand the pointer can be com moved up, down, , right, or left until it is opposite the desired word. The user then pushes the button n orr the no. 5. 5, depending onn the mode of operation, and the word that is being g indicated by the pointer is printed at the bottom bOllom of the screen. After the item is printed, the pointer is again aCl activated i\'ated for further entry. Atthe the bottom bOllom of the screen where the message is being built, buill. a vertical pointer indicates the next location for the next character locationn orr word location. If I f one wishes to enter information not shown in the listing of BASIC words, put the pointer opposite the word "SCREEN" and enter. The word will print and then erase; a pointer al. at the lhe lOp top off the screen will then activate and will be pointing at the alphabet and numbers located across the lop lO p off the screen. TThe up aarrow is used for the pointer; it can only l), move left orr right; it will wrap around at the end. When the pointer r is beneath the desired character, push the nO.5 no. 5 key or button butlO n and the single character will be added lo to the message. To change the lO topp of the screen to special characters, etHer enter the greater than or less than sign. The line will change, and then youu can enter the special characters. Too return relurn to the words. enter the @ symbol a nd the pointer will the words, enter the (2 symbol and the pointer will be back at the words. When the message is completed or )'OU you wish lo to print on a printer at Device No.4, enter the % symbol; l; the message or basic statement will go to the printer. The program will clear the array, present the screen again and allow the next message or sta tement to be entered. T o prevent the screen or statement to be entered. To prevent the screen from scrolling, t.h there is a limitation off 240 charac racte rs. The program checks for the limit and. if ters. The program checks for the limit and, if reached, , prints the message and continues. T he program presently goes lo a printer; The program presently goes to a printer; however, , it could be changed to write lo a disk or to the cassette, or even to push out to a modem and to the cassette, or even to push a lit to a modem and communicate with another computer. There is sound with each movement ofr the pointers using the CB2 convention. All the com puter r needs for this program 10 to function is the ability lo to close switches so a handicapped person could make it work. Of course, the necessary switches would have lo to be used in place of the e jjoystick. I did not mention that to enter r blanks, enterr the shaded space. To delete characters, enter the right bracket and the message will decrease by one character. The program m will run on an 8SKK machine, Original or Upgrade ROMs; however, the REMARKS will have to be deletedlirsL first. If Ir youu have a wedge in the 8 K and try to load , it won't fit. have a wedge in the 8K and try to load, il won't fit. After you load it on the 8K, you can't save unless ),ou you delete one line since youu will get aann out-of- niemory memory message. I have not stated in this article all of the line numbers and their functions. I think the UI -of REMARKS numbers and their functions. I think the REMARKS do a pretty good job j off that. The sort for sorting the words is the SHELL sort. I read all of the vari the wo rds is the SH ELL sort. I read a ll of the va riables first to count them and then dimension the array that size. The program could be changed by using new data statements. It is presentl ), setup for 64 words on the screen in fou r rows. T he program using new data statements. It is presently set up for 64 words on the screen in four rows. The program
Mov. May. 1982.lssue 1982, Issue 24 COMPUTEI COMPUTE! 171 could be changed to calculate the number of words being used and adjust the various locations off the pokes to accommodate the different values. I did not try that since I was trying to accomplish something that might be useful for someone who cannot access the computer any other way. If anyone wishes a copy off the program, I will make a copy from the original forr a cost of $3.00. Please enclose a tape and SASE mailer. Hilton B. Souther 115 5 Windingway Rd. . Lynchburg, V VA'24502 A 16 BEG=1:REM HOUSEKEEPING 18 GOT01l2 G0T0112 20 DI=1:PRINT"{HOME}{15 DOWN} D0WN}":REM " [HM] [DN15] 24 GB=3:POKETR,0:0NDIGOSUB32,220 GB=3:P0KETR,0:ONDIGOSUB32,220 282 8 POKEK4,16:POKEK5,15:POKEK6,51:P OKEK5,0:POKEK4,0:POKEK6,0 : POKEK6 , 0 30 GOT024 GOTO24 32 POKEI,ASC(">") P0KEI,ASC(">"):FORJ=1TO10:NEXT: :FORJ=1T010:NEXT: POKEE6,0 333 3 S9=0:FORJ=I+1TOI+9:IFPEEK(J)=32 ANDPEEK(J+1)=32THENS9=J-1: GOT0 GOTO37 36 POKEJ,PEEK(J)OR128:NEXT P0KEJ,PEEK(J)OR128:NEXT 37 IFPEEK(TR)=255THEN37 38 GOT040 GOTO40 393 9 FORJ=I+1TOS9:POKEJ,PEEK(J)-128: : NEXT:RETURN 404 0 IFPEEK(TR)=E4THENGOSUB39:POKEI, 32:GOSUB88:I=I-40:RETURN 3 8:1=1-4 444 4 IFPEEK(TR)=E5THENGOSUB39:POKEI, 32:GOSUB94:I=I+40:RETURN 3 2 :GOSUB94:1 = 1 + 40:RETURN 484 8 IFPEEK(TR)=E3THENGOSUB39:POKEI, 32:GOSUB100:I=I+10:RETURN :GOSUB100:1 = 1 + 10:RETURN 525 2 IFPEEK(TR)=E2THENGOSUB39:POKEI, , 323 2 ::GOSUB106:1 GOSUB106:I=I-10:RETURN = 1-10:RETURN 54 IFPEEK(TR)=E1THEN64 4 60 RETURN 646 4 GOSUB39:FORJ=I+1TOS9:FR=PEEK(J) : :IFPEEK(J)=32THENCT=CT+1:I FCT=2THEN80 68 IFPEEK(J) (J)O32THENCT=0 3 727 2 POKELO,FR:POKELN, P0KEL0,FR:POKELN,32:LN=LN+1:P0K 3 2:LN=LN+1:POK ELN,30:LO=LO+1:E$=E$+CHR$( PEEK(J)+64) 747 4 NEXT:IFCT=0THENPOKEL0,32:POKELN , 3 2 : POKELN ,32:LN=LN+1:POKELN,30:LO=L O+1:E$=ES+" : E$=E$+" " 787 8 IFLEFT$(E$,3)="SCR"THENGOSUB394 ::RETURN 808 0 REM ADD TO STRING AND MOVE THE -' POINTER TO THE NEXT POSITI ON 828 2 IFLEN(C$)+LEN(E$)=>240THENPT=10 1:GOT0316 1:GOTO316 84 C$=C$+E$:E$="":RETURN $:E$="": 88 IFI=T30RI=T20RI=TI0RI=TTHENI=I+ IFI=T3ORI=T2ORI=T1ORI=TTHENI=I+ K-T+40 90 RETURN 949 4 IFI=K30RI=K20RI=KI0RI=KTHENI=I IFI=K30RI=K2ORI=K10RI=KTHENI=I- (K-T)-40 969 6 RETURN 100 IF((I-8)+10)/40=INT((I+10)/40)T (I - (I+10)/40)T HENI=I-40 1022 RETURN 106 IF((I-8)/4 (I-8)/40)=INT( 0)=INT((I-8)/40)THENI (I - = 1+401 + 108 RETURN 112 PRINT"{CLEAR}{03 {03 DOWN}"TAB(10)" "TAB(l0)" {REV}READING (REV}READING VARIABLES":PR : INT:REM[CL) INT:REM[CL] [DN3] 3 ] 114 K=33448:Kl=K+10:K2=K+20:K3=K+30 : K2 =K+20:K3=K+ 30 :BEG=1:W=0:K4=59467:K5=K4- 1:K6=K4-3:K7=K4-8 116 READW$ :IFW$: IFW$O"9999"THENW=W+1 " "T HENW=W+l:GO T01l6 T0116 118 I=328 48:T=I:Tl=T+10:T2=T+20: 48:T=I:T1=T+10:T2=T+20:T3= T3= T+30:DIMW$(W):LO=3 :LO=33488:LN= 3488:LN= LO+40 1 22 RESTO RE:FOR P=0TOW-l:READW$(P):P 122 RESTORE:FORP=0TOW-1:READW$(P):P RINT".";:W$(P)=W$(P)+" _"; ":NN EXT:P=0:GOTO138 : P=0:GOT0 128 DATAPEEK(,INPUT,COS(,GET,ASC(,E , XP(,ATN(, ( ,LOG LOG(,RND(,SGN(,SQ ( , ( , SQ R(,CHR$(,LEFT$( R ( , C $ ( , $ ( 130 DATALEN(,MID$(,RIGHT$(,STR$(,VA , , L(,POS(/TAB(,FRE(,SYS,TI$, (,TAB( , , SYS ,TI $ , TI,USR,"DEF FN" 132 DATACLR,SAVE,CONT,LIST,LOAD,NEW ,LI ST ,LOAD,NEW ,RUN,VERIFY,DIM,ON,GOSUB,G , , G OTO, 0T0,IF,THEN,ABS( ,THEN , ( 134 DATAREM,RESTORE,RETURN,STOP,WAI , RETURN , STOP,WAI T,SIN(,PRINT,SCREEN,AND,CL OSE,FOR,INT(,NEXT OSE,FOR,INT{,NEXT 136 DATANOT,OPEN,OR,POKE,READ,SPC(, , OP OR ,POKE , READ,SPC( , STEP,TO,END,DATA,9999 , TO,END,DATA,9999 138 TA=W-l TA=W-1:PRINT:PRINTTAB(52)"{REV} : : PRINTTAB(5 2 ) " {REV) SORTING":PRINT 140 TC=TA 142 TC=INT(TC/2) ):IFTC>=lTHEN146 : IFTO=1THEN146 144 GOTOI72 GOTO172 146 REM SORT THE LIST 148 FORU=0TOTC:FORT9=UTOTA-TCSTEPTC =UTOTA-TCSTEPTC :T0=T9:T$=W$(T9+TC) =W$(T9+TC) 150 IFT$>=W$(T0)THEN154 >=W$(T0)THENI54 152 W$(T0+TC)=W$(T0):T0=T0-TC:IFT0= > >1THEN150 ITHENI50 154 W$(T0+TC)=T$:PRINT =T$:PRINT"'" ;;:NEXTT9,U :GOTOI42 :GOTO142
Page 1 and 2:
1\ MALA Educational Programs M\~ Fo
Page 3 and 4:
May. 1982. Issue 24 COMPUTEI 101 Ma
Page 5 and 6:
• the battle for the moons of Jup
Page 7 and 8:
May, May. 1Q82lssue 1982, Issue 24
Page 9 and 10:
i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~,
Page 11 and 12:
• Announcing the Printing Breakth
Page 13 and 14:
May. 1982. Issue 24 COMPUTEI 111 Ma
Page 15 and 16:
APPLE • ALTOS • ATARI • MAXEL
Page 17 and 18:
CBM Maintenance In-House DOWNEY, CA
Page 19 and 20: NEW PET/CBM SOFTWARE NEW PET/CBM SO
Page 21 and 22: CALL TOLL FREE CALL TOLL 800424 -27
Page 23 and 24: OLYMPIC SALES COMPANY 'ANY Vuthonze
Page 25 and 26: May, May. 1982, 1982. Issue 24 COMP
Page 27 and 28: OSI TRS-80 COLOR-80 OSI OSI TRS-80
Page 29 and 30: THEE MOSAIC 32K RAM FOR ATARI 32K R
Page 31 and 32: VOUNEED YOU NEED SpeedRead+ • Opt
Page 33 and 34: MOV, May, 1Q82, 1982, Issue 2A 24 C
Page 35 and 36: May. May, 1982, Issue 24 2.::1 COMP
Page 37 and 38: May, 1982, Issue 24 COMPUTEI 135 Ma
Page 39 and 40: MENAGERIE . ... $11.95 GRAFIX MENAG
Page 41 and 42: May. Mav. 1Q82.lssue 1982. Issue 24
Page 43 and 44: May. JIAov, 1982. 1Q82,lssue Issue
Page 45 and 46: May, 1982. 1982, Issue l$Sue 7& 2.4
Page 47 and 48: Micrn BEST PRICES BEST PRICES VIC-2
Page 49 and 50: May, May.1982, Issue 24 COMPUTEI ,.
Page 51 and 52: May, 1982.I$Ue 24 COMPUTEI 149 May,
Page 53 and 54: May, 1982, 19S2. Issue 201 24 COMPU
Page 55 and 56: tvk:rv. 1Q82.lssue 24 COMPUTEI 153
Page 57 and 58: ASERT yourself", with CFI's new Dat
Page 59 and 60: The retailer contains The retailer
Page 61 and 62: BgeREM* * 900 1080 1000 DIM DIM Y '
Page 63 and 64: May, May. 1982. Issue 24 2A COMPUTE
Page 65 and 66: May. 1982. Issue 24 COMPUTE! PUTEI
Page 67 and 68: Program 1- Program I. 0000 13131313
Page 69: 202A 2e2A 0000 202C 0000 000£1 202
Page 73 and 74: May, 1982. 1982, Issue 24 211 COMPU
Page 75 and 76: May. WIoy. 1982, 1982. Issue 24 21:
Page 77 and 78: HP·S5 HP*85 ao BO Column Printer H
Page 79 and 80: ECLECTIC SYSTEMS CORPORATION P.O. B
Page 81 and 82: ECLECTIC SYSTEMS CORPORATION P.O. 8
Page 83 and 84: SOFTWARE STREET PRESENTS &JOOOo@~~~
Page 85 and 86: COI'l1lnodore commodore SHOW SPECTA
Page 87 and 88: Lyco Computer Marketing & Consultan
Page 89 and 90: EXTRA SPECIAL SPECIALS K-razJI K-ra
Page 91 and 92: & 0W «*$ cr ^ o & 0oV \P s —~ -
Page 93 and 94: E S o a. E g « JS M U I £ g g §
Page 95 and 96: : ;■:■■■■-.;-.■ ■;-.
show all

Section 2 - Commodore Computers

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?