Applesoft BASIC Source Code | 1991-06-26 | 383 b | 13 lines | [FC] Applesoft BASIC Program (0x0801)
1 ONERR GOTO 9
2 REM <CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08> <CTRL-0x0d>Check for 80 column card<CTRL-0x0d>
3 A% = PEEK(49152)/2:B = NOT ( INT(A%/2) = A%/2): IF B THEN 7
4 REM <CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08> <CTRL-0x0d>Place display in 80 columns<CTRL-0x0d>
5 PRINT "<CTRL-0x04>PR#3"
6 REM <CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08> <CTRL-0x0d>Execute external commands<CTRL-0x0d>
7 PRINT "<CTRL-0x04>-MS2PCC2.0A"
8 GOTO 11
9 ONERR GOTO 11
10 PRINT "<CTRL-0x04>-ms2pcc2.0B"
11 PRINT CHR$(4)"-procopy"
12 NEW
65535 REM <CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08><CTRL-0x08> <CTRL-0x0d>MS2ProDOS Command Converter<CTRL-0x0d> v2.0<CTRL-0x0d> By Jack S. Lai<CTRL-0x0d>