mirror of
https://github.com/w4jbm/Apple-1-Integer-BASIC.git
synced 2024-11-25 11:30:48 +00:00
37 lines
710 B
Python
37 lines
710 B
Python
|
#!/usr/bin/env python
|
||
|
|
#
|
||
|
|
# Apple 1 Integer BASIC Relocator
|
||
|
|
#
|
||
|
|
# GENERATE list of lines sith $Ex in them.
|
||
|
|
#
|
||
|
|
# Copyright (C) 2021 by Jim McClanahan, W4JBM
|
||
|
|
#
|
||
|
|
# Usage: ./a1bmoveg.py
|
||
|
|
#
|
||
|
|
# - Name input file a1basic.in
|
||
|
|
# - Run Generate Process with ./a1bmoveg.py
|
||
|
|
# - Edit file to delete or comment out lines which
|
||
|
|
# are not to be changed
|
||
|
|
# - Run Modification Process with ./a1movem.py to
|
||
|
|
# create a1basic.out
|
||
|
|
#
|
||
|
|
|
||
|
|
from sys import argv;
|
||
|
|
|
||
|
|
fin = open("a1basic.in", 'rt')
|
||
|
|
fmod = open("a1basic.mod", 'w')
|
||
|
|
|
||
|
|
|
||
|
|
fmod.write('# Apple 1 Integer BASIC Relocator\n')
|
||
|
|
fmod.write('#\n')
|
||
|
|
fmod.write('# *=$E000\n')
|
||
|
|
fmod.write('#\n')
|
||
|
|
|
||
|
|
lin = 0
|
||
|
|
|
||
|
|
for line in (fin):
|
||
|
|
lin = lin + 1
|
||
|
|
if '$E' in line:
|
||
|
|
fmod.write(str(lin)+'\n')
|
||
|
|
|