0 REM...COMMODORE'S COLUMN #1 - RUPERT-        8/21/83
1 REM--AHOY--JAN ISSUE--CURSOR--PROG PAGE 44
2 REM USE KERNAL ROUTINE 'PLOT'         TO POSITION CURSOR
3 PRINT CHR$(147)    :REM CLEAR SCREEN
4 REM STORE MACHINE LANGUAGE IN MEMORY
5 SA=49152       :REM STARTING ADDRESS
10 X=0
20 READ B
25 IF B=-1 THEN 110
30 POKE SA+X,B
40 X=X+1
45 GOTO20
50 DATA 162,0,160,0,24,32,240,255,96,-1
100 REM --------------------------------
105 REM...PUT CURSOR AT 1,10
110 ROW=1:COL=10:GOSUB1010
120 PRINT"* HERE IT IS AT 1,10"
125 REM...PUT CURSOR AT 20,15
130 ROW=20:COL=15:GOSUB 1010
140 PRINT"*NOW IT IS AT 20,15
999 [128]
1000 [143] ROUTINE TO PUT CURSOR AT                 POSITION ROW,COL
1005 [143]  ROW = 0 TO 24 : COL = 0 TO 39
1010 [139] ROW[179]0 [176] ROW[177]24 [167] [153]         "INVALID ROW":[137] 1040
1015 [139] COL[179]0 [176] COL[177]39 [167] [153]           IN[197]ID COL":GOTO 1040
1020 POKE SA+1,ROW:POKE SA+3,COL
1030 SYS SA
1040 RETURN