Sharp PC-1350 / PC-1360 - basic extension

Sharp PC-1350 / PC-1360 basic extension

Basic extension

Introduction
To display more than 24x4 characters on the display, I have developed a basic extension, which allows a text output with 37x4 characters.
Usage of the basic extension
- PC-1350
  Since all my programs are designed to use a 16 KB ram card in the PC-1350, the basic extension is loaded to the beginning of the internal ram. For this purpose, the basic must be configured only to use the ram card but not the internal ram:
  MEM "C"
  With this there are 3 KB memory less avalilable for basic programs and only the memory card is used for basic.
- PC-1360
  Since all my programs are designed to use a 32 KB ram card in the PC-1360, the basic extension is loaded to the beginning of this 32 KB. For this purpose, the start of the basic memory must be moved to &8800:
  SET MEM "C"
  POKE &FFD7,0,&88
  NEW
  With this there are 2 KB memory less available for basic programs and only one memory card can be used for basic.
- Detection of PC-1350 or PC-1360 within a basic program
  Basic programs using the basic extension only differ in the calling address for the extension. So you can detect the PC-1350 or PC-1360 within the program and only have one source file for both devices.
  PEEK &FFF3=206
  always returns in a PC-1350 (ROM v0 und v1) 206 (&CE), in a PC-1360 normally 249 (&F9) (FFF2/3 = start of standard variables PC-1360)
  So without manually manipulating the system memory layout the standard variables always start at address F9xx when using MEM$ = "C"
  100: IF PEEK &FFF3=206 THEN 130 110: PR=&8030:IN=&8033:TA=&8036:T2=&8039:CI=&803C:RE=&803F:FI=&8042 120: SA=&8045:LO=&8048: GOTO 150 130: PR=&6000:IN=&6003:TA=&6006:T2=&6009:CI=&600C:RE=&600F:FI=&6012 140: SA=&6015:LO=&6018 150: REM here starts the basic program
Example:
The following source code shows the usage of the new functions:

WAIT 0: CLS REM PC-1350: PR=&6000:IN=&6003:CI=&600C:RE=&600F:FI=&6012 PR=&8030:IN=&8033:CI=&803C:RE=&803F:FI=&8042 CALL PR,0,0,"Beispieltext" CALL PR,8,0: CALL RE,4 CALL PR,0,1,"Name: "; CALL CI,100,16,14,1 LINE (86,16)-(114,16) CALL FI,100,14 IN$="": CALL IN,8,IN$
The program waits in display line 2 for the input of the user:

The following program displays the complete charset:

REM PC-1350: PR=&6000 PR=&8030 CLS: DIM ST$(3)*37 ST$(0)="ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890" ST$(1)="abcdefghijklmnopqrstuvwxyz" ST$(2)="" FOR I=33 TO 47:ST$(2)=ST$(2)+ CHR$ I: NEXT I:ST$(2)=ST$(2)+" " FOR I=58 TO 64:ST$(2)=ST$(2)+ CHR$ I: NEXT I:ST$(2)=ST$(2)+" " FOR I=91 TO 96:ST$(2)=ST$(2)+ CHR$ I: NEXT I:ST$(2)=ST$(2)+" " FOR I=123 TO 126:ST$(2)=ST$(2)+ CHR$ I: NEXT I CALL PR,0,0,ST$(0): CALL PR,0,1,ST$(1): CALL PR,0,2,ST$(2) WAIT : GPRINT
Commands of the basic extension
The following commands are added by the basic extension:
Print 37x4 - display text with 37x4 charset

Usage:
PC-1350: CALL &6000[,X,Y][,Str$][;]
PC-1360: CALL &8030[,X,Y][,Str$][;]

X : 0..36 = X-position of the first char to display
Y : 0..3 = Y-position of the first char to display
Str$ : expression (type string)
; : sets the position of the next char at the end of the current string.

Without [Str$] the cursor position for the next call is set.
Without [;] the next print is shown in the next display line.
If a char should be printed in line 5 the display is scrolled one line.
Configuration of "WAIT" odr USING-format is ignored.
If you want to display a number you have to convert it to a string by yourself (e.g. with STR$)

Examples:
PR=&8030 CALL PR,"LKW Kapazit#t="+ STR$ (TA(I)*7000)

Some German special character (Umlaute) can be shown (in lower case):
# = ä

$ = ö

% = ü

& = ß
Input 37x4 - Text-input with 37x4 charset

Usage:
PC-1350: CALL &6003,Len,Str$
PC-1360: CALL &8033,Len,Str$

Len: max number of chars for the input.
Str$: name of a two char string variable, where the input is stored.

Str$ must be defined in the basic program before calling Input 37x4 (e.g. IN$ = "")
It's in the responsibility of the caller not to allow longer input than the variable can store. Simple two char string variables (e.g. IN$) can store up to 16 chars, a array string variable (e.g. DIM IN$(2)*80) can store up to 80 chars.

The input is started at the current cursor position set with Print 37x4.
You can't set a default text for the input, the content of Str$ is ignored and will be overwritten bei Input 37x4.
The keys BRK and ENTER will end the input.
INKEY without SML - T$ = key (all keys)

Usage:
PC-1350: CALL &6006
PC-1360: CALL &8036

Waits for a key press and stores the ASCII code of the key in the standard variable T$
All keys of the PC-1350/PC-1360 will return a value (e.g. Shift or the cursor keys)

The following ASCII values will be returned for special keys:
- &02 = CLS
- &03 = CLS (if SHIFT is active)
- &04 = cursor up
- &05 = cursor down
- &06 = ENTER (if SHIFT is active)
- &07 = BRK
- &08 = MODE
- &09 = SML (if SML is active, PC-1360 only)
- &0B = INS
- &0C = DEL
- &0D = ENTER
- &0E = cursor right
- &0F = cursor left
- &10 = SHIFT
- &12 = DEF
- &13 = cursor left (if SHIFT is active)
- &14 = cursor right (if SHIFT is active)
- &15 = SML (PC-1350)
- &16 = SML (PC-1360)
- &1E = SHIFT (if SHIFT is active, PC-1360 only)
INKEY with SML - T$ = key (incl. shift/sml assignment)

Usage:
PC-1350: CALL &6009
PC-1360: CALL &8039

Waits for a key press and stores the ASCII code of the key in the standard variable T$
Shift/SML keys are handled so it returns upper/lower case keys or chars where Shift is needed for.
CIRCLE ,X,Y,R,{1/2/4} - draw a circle

Usage:
PC-1350: CALL &600C,X,Y,R,{1/2/4}
PC-1360: CALL &803C,X,Y,R,{1/2/4}

X: -32768 to 32767, X-position of the center
Y: -32768 to 32767, Y-Position of the center
R: 0 to 65535, radius
{1/2/4}: 1=set, 2=reset, 4=invert

Draws a circle with center X,Y, radius R and the drawing mode set/reset/invert
INVERT - inverts 37x4 char(s)

Usage:
PC-1350: CALL &600F,Number
PC-1360: CALL &803F,Number

Numer: nuber of chars to be inverted

Invert "number" of chars (4 pixel wide blocks) starting with the current Print 37x4 cursor position.
FILL - fills a closed area

Usage:
PC-1350: CALL &6012,X,Y
PC-1360: CALL &8042,X,Y

X: 0..149, X-position of the pixel where fill will start
Y: 0..31, Y-position of the pixel where fill will start

Fills an closed area on hte screen, beginning at position X,Y.
BILDSAVE - saves the content of the screen to memory

Usage:
PC-1350: CALL &6015,Address
PC-1360: CALL &8045,Address

Address: memory address to save the screen (600 byte)

Copy the display ram to memory. The 600 byte of the display ram will be stored on the order used in the display ram.
BILDLOAD - loads the content of the screen from memory

Usage:
PC-1350: CALL &6018,Address
PC-1360: CALL &8048,Address

Address: memory adsress where a screen was saved (600 byte)

Copy 600 byte from memory to the display ram. The memory must be in the same order like used by the display ram.
OLD - recover a basic program deleted with NEW

Usage:
PC-1350: CALL &601B
PC-1360: CALL &804B

Undelete of a basic program, that was deleted with NEW.
It only works, if there was no input (manual of load) of another basic program, if the basic start (FFD7/FFD8) was noch changed and if the (deleted) basic programm was not created by a MERGE of different programs
Also note that the first line of the undeleted basic program will have a line number <= 255. When the original number of the first line was larger you must change it manually.
The hibyte of the line number is overwritten by the NEW command.
DEC -> HEX - convert decimal -> hex, only in direct mode

Usage:
PC-1350: CALL &601E,Number
PC-1360: CALL &804E,Number

Mumber: 0..65535, number to be converted to hex

The call will only work in input mode (RUN oder PRO) but not within a basic program.
The hex value of "Number" will be shown after the decimal value and the call is ended with an "ERROR 1"

Example:
CALL&804E,40000
Enter

You either can press <cursor left> to enter a new decimal value or"CLS" to end the command.

PC-1350:
There are two different versions of the basic extension for ROM version v0 and v1 of the PC-1350. The basic extension will not work with other ROM versions.
PC-1360:
The basic extension only was tested with PC-1360 with ROM version 3 or 5 and meight not run with another ROM version.

To detect the ROM version of a PC-1350/PC-1360 you can follwo the instructions given in the section ROM version on the page System description and routines PC-1350 / PC-1360

Download Sharp PC-1350 Basicerweiterung

SW Basic V9 (adress: &6000 - &66BE) ROM v0	sw_bas_9-1350_v0.bas	sw_bas_9-1350_v0.wav (CLOAD M)
SW Basic V9 (adress: &6000 - &66BE) ROM v1	sw_bas_9-1350_v1.bas	sw_bas_9-1350_v1.wav (CLOAD M)
Before loading the program on a PC-1350 the basic end must be set no higher than &5FFF: MEM "C"

Download Sharp PC-1360 basic extension

SW Basic V9 (address: &8030 - &8725)	sw_bas_9-1360.bas	sw_bas_9-1360.wav (CLOAD M)
Before loading the program on a PC-1360 the basic start must be set to &8800: SET MEM "C" POKE &FFD7,0,&88 NEW

back to staring page Sharp

Copyright: All images and text shown on this page are ©1999/2026 Bernhard Schwall, copyright protected and meight not be used without permission of the author.
Author: Bernhard Schwall	last change: 01.01.2026