II Computing Magazine
October / November 1985
The following program was produced by Antic Publishing, Inc. for the II Computing Magazine “Action” disk which came with the magazine.
10 REM * II COMPUTING VOL.1 NO.1
20 REM * COPYRIGHT 1985
30 REM * ANTIC PUBLISHING, INC.
40 GOSUB 300
50 VTAB 5 + L * 2: HTAB H(L): PRINT ST$(L)
60 VTAB 5 + I * 2: HTAB H(I): INVERSE : PRINT ST$(I): NORMAL
70 L = I: POKE ST,1
80 KY = PEEK (KP): IF KY < 128 THEN 80 90 POKE ST,1: IF KY = ES THEN 260 100 IF KY = LE OR KY = UP THEN I = I - 1: IF I < 0 THEN I = N 110 IF KY = RI OR KY = DN THEN I = I + 1: IF I > N THEN I = 0
120 IF I < > L THEN 50
130 IF KY < > CR THEN 80
140 IF I THEN HOME : POKE 34,0: PRINT "-";DT$(I): PRINT D$;"-";DT$(I)
150 HOME : PRINT "TO USE TYPO II:": PRINT
160 PRINT "1. TYPE: NEW
170 PRINT "2. TYPE PROGRAM FROM LISTING SECTION."
180 PRINT "3. TYPE: EXEC TYPOII"
190 PRINT "4. COMPARE CODES. IF NOT MATCHING THEN"
200 PRINT " GO BACK AND FIX THE INCORRECT LINES."
210 PRINT " CHECK AGAIN BY TYPING: RUN 63000
220 PRINT " REPEAT STEP 4 UNTIL CODES MATCH."
230 PRINT "5. TYPE: DEL 63000,63150"
240 PRINT "6. SAVE THE PROGRAM."
250 POKE 34,0: NEW
260 HOME : PRINT : PRINT "TO RETURN TO MENU, TYPE: RUN STARTUP"
270 POKE 34,0: NEW
300 D$ = CHR$ (4): PRINT CHR$ (17)
305 ST = 49168:KP = 49152
310 PRINT D$;"BLOAD HSCREEN": POKE 49234,1: POKE 49239,1: POKE 49232,1
320 POKE ST,1: FOR I = 1 TO 1000: IF PEEK (KP) > 127 THEN I = 1000
330 NEXT : POKE ST,1
340 TEXT : HOME :FR$ = "----------------------------------------"
350 PRINT FR$;" II COMPUTING"; SPC( 16);
360 PRINT "VOL.1 NO.1"
370 PRINT FR$: VTAB 21
380 PRINT FR$;" ARROWS TO SELECT, RETURN TO EXECUTE"
390 PRINT FR$;: VTAB 5
400 READ N: DIM ST$(N),DT$(N),H(N)
410 ST$(0) = "TYPO II":H(0) = 17: HTAB H(0): PRINT ST$(0): PRINT
420 FOR I = 1 TO 6: READ ST$(I),DT$(I)
430 H(I) = 21 - LEN (ST$(I)) / 2
440 HTAB H(I): PRINT ST$(I): PRINT : NEXT
450 LE = 136:DN = 138:UP = 139
460 CR = 141:RI = 149:ES = 155
470 POKE 34,3:I = 1: RETURN
500 DATA 6
510 DATA COLOR WEAVER,INKLE.LOOM
520 DATA HI-RES LABELER,HIRES.LABELER
530 DATA HALLEY'S COMET,HALLEYS.COMET
540 DATA FOOTBALL PROGNOSTICATOR,FOOTBALL.DOC
550 DATA ECTO BLASTER,ECTO.BLASTER
560 DATA LADYBUG,LADYBUG
Please follow and like us:
